By default the loop variable is held in $_ but you can assign to a variable if you wish. It is not a good idea to alter loop variables inside the loop, that leads to all sorts of grief.
$ perl -Mstrict -Mwarnings -E ' > foreach my $outer ( 1 .. 3 ) > { > foreach my $inner ( 7 .. 9 ) > { > say qq{$outer x $inner = @{ [ $outer * $inner ] }}; > } > }' 1 x 7 = 7 1 x 8 = 8 1 x 9 = 9 2 x 7 = 14 2 x 8 = 16 2 x 9 = 18 3 x 7 = 21 3 x 8 = 24 3 x 9 = 27 $
I hope this is helpful.
Cheers,
JohnGG
In reply to Re^4: How to create loop in perl dynamically
by johngg
in thread How to create loop in perl dynamically
by adithi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |