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>
