in reply to How to iterate by fives?
use the modulus operator -- % isn't just for hashes.
Other ways?
There are other ways to do it, but that's the most perl, I think.for (1..100) { print "$_ "; print "\n" if ($_ % 5 ==0); # add a break (or other string) every +5 elements }
Other ways?
@foo = map {$_*5} (1..10); # generate a list by fives. print join " ", @foo,"\n\n"; # see the fives. print "<table>"; # replace with calls to CGI.pm as appropriate. for my $ctr (0..$#foo) { print " <tr>\n "; print " <td>$_</td>" for (($ctr*5)+1 .. $foo[$ctr]); print "\n </tr>\n"; } print "</table>\n\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: How to iterate by fives?
by moof1138 (Curate) on Feb 15, 2003 at 23:14 UTC |
In Section
Seekers of Perl Wisdom