Perl: Looping through an array

Articles may may have files attached at the end of the post

Submitted by chantra on Fri, 04/04/2008 - 16:40

perl

How to go through each elements of an array.

#!/usr/bin/env perl
use warnings;
use strict;
my @myarray = ('element1', 'element2', 'element3');
print "Using the default implied scaler (\$_)\n";
foreach (@myarray) {
print "\t".$_."\n";
}
print "\nUsing a variable\n";
foreach my $elmt (@myarray) {
print "\t".$elmt."\n";
}

will output

$ perl array.pl
Using the default implied scaler ($_)
        element1
        element2
        element3

Using a variable
        element1
        element2
        element3

Bookmark/Search this post with:

Similar entries