Hmmm... I just now thought about the possibility of going back and adding another loop, and going back to the print option, and adding in a tab character between each value for 3 or 4 loops, and then a \n. Sounds like it would work... but doesn't sound very... elegant.
Adding this code after the while loop will do this.
my $cols = 4; for my $i (0 .. $#UACS) { print $UACS[$i], (($i + 1) % $cols ? qq{\t} : qq{\n}); } print qq{\n} if @UACS % $cols;
-- Ken
In reply to Re: Output an array of values in column format?
by kcott
in thread Output an array of values in column format?
by bobdabuilda
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |