Amit Phatak wrote: > > To run through a loop there more than one ways (a lot actually!) in PERL.
It is Perl for the language and perl for the interpreter but never PERL. > The ones I'm aware of are: To run through @array > > #1 > $size = @array; > for($i=0;$i<$size;$i++) > { > print "$array[$i]\n"; > } > > #2 > foreach $i (@array) > { > print "$i\n"; > } > > Can people please contribute on other ways to do the same thing. > Please begin by #3, #4.. etc as you read on different ways. print "$_\n" for @array; for my $i ( @array ) { print "$i\n"; } print "$array[$_]\n" for 0 .. $#array; for my $i ( 0 .. $#array ) { print "$array[$i]\n"; } for ( my $i = 0; $i < @array; ++$i ) { print "$array[$i]\n"; } my $i = 0; print $array[ $i++ ], "\n" while $i < @array; my $i = 0; while ( $i < @array ) { print $array[ $i++ ], "\n"; } my $i = 0; print $array[ $i++ ], "\n" until $i == @array; my $i = 0; until ( $i == @array ) { print $array[ $i++ ], "\n"; } print map "$_\n", @array; map print( "$_\n" ), @array; grep print( "$_\n" ), @array; print map "$array[$_]\n", 0 .. $#array; map print( "$array[$_]\n" ), 0 .. $#array; grep print( "$array[$_]\n" ), 0 .. $#array; my $i = 0; { print $array[ $i++ ], "\n"; redo if $i < @array } my $i = 0; LOOP: { print $array[ $i++ ], "\n"; goto LOOP if $i < @array } John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>