Re^3: Break an array. I think.

Okey okey, thank you for the advice. I am just a new perl-deciple, trying stuff out. I was just looking for a way to do it, in a simple way. And maybe later, when more experienced, expand it to some extent.

Which solution would you use? Or do you have your own way to do it?

Thanks

Comment on Re^3: Break an array. I think.

Replies are listed 'Best First'.
Re^4: Break an array. I think. by SamCG (Hermit) on Nov 22, 2005 at 21:54 UTC
It seems to me you don't really want your break to be determined by the value you're breaking on, but on it being the third number. `my @datan = qw(1 2 3 4 5 6); for ($cnt=0; $cnt<=$#datan; $cnt++) { print "\n" if $cnt%3 == 0;## remainder==zero after division by 3 print "$datan[$cnt] "; } print "\n";` [download] Using this you could arbitrarily increase the number of elements, not worry about their values, and it would always give you three elements to a row. To get them to line up, unless you're assured of using single digits, you'd probably either want to use sprintf or at least separate them by tabs.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Break an array. I think.
by SamCG (Hermit) on Nov 22, 2005 at 21:54 UTC

my @datan = qw(1 2 3 4 5 6);
for ($cnt=0; $cnt<=$#datan; $cnt++) {
 print "\n" if $cnt%3 == 0;## remainder==zero after division by 3
 print "$datan[$cnt] ";
}
print "\n";
[download]

[reply]
[d/l]