Mega Code Archive

 

Categories / Perl / Array

 

Directly indexing an arrays contents

#!/usr/local/bin/perl -w my @months = qw (JUNK Jan Feb March April May June July Aug Sept Oct Nov Dec); for ($x=0; $x <= $#months; $x++) {    print "Index[$x] = $months[$x]\n"; }