String array : Array Definition « Array « Perl






  1. Perl
  2. Array
  3. Array Definition

String array

    

#!/usr/bin/perl
use warnings;
use strict;
my @questions = qw(Java Python Perl C);
my @punchlines = ("A","B","D",'E');
print "Please enter a number between 1 and 4: ";
my $selection = <STDIN>;
$selection -= 1;
print "How many $questions[$selection] ";
print "programmers does it take to change a lightbulb?\n\n";
sleep 2;
print $punchlines[$selection], "\n";








Related examples in the same category

1.Define an array variable called @myList.
2.Create lists of number variables
3.Create lists of text variables
4.Arrays in Perl
5.Array literal
6.Lists Assigned to Arrays
7.An array is a named list.
8.A program that reads data into an array and writes the array.
9.Build a string array across two lines
10.Construct a string array and output its first element
11.Construct an integer array and output its first element
12.Define two dimensional array
13.An empty list is represented as parentheses with nothing in between
14.Using qw to construct a string array
15.Constructing and Dereferencing