for my $i (0 .. @data/100) { my $max = $i * 100 + 99; $max = @data - 1 if $max > @data - 1; print @data[$i * 100 .. $max]; }
Of course, you'd presumably want to do something between those prints.
#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.
In reply to Re: While Loops
by kennethk
in thread While Loops
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |