Mega Code Archive

 

Categories / Perl / Array

 

Accessing Elements

@names=('John', 'Joe', 'Jake');     print @names, "\n";   print "Hi $names[0], $names[1], and $names[2]!\n"; $number=@names;       print "$number elements in the \@names array.\n"; print "The last element is $names[$number - 1].\n"; print "The last element is $names[$#names].\n"; @fruit = qw(a b c d); print "The first element of the \@fruit array  is $fruit[0];the second element is $fruit[1].\n"; print "@fruit[-1, -3]\n";