Several monks have recommended Perl6::Form as a viable replacement for format.
Whenever I think of displaying tables, I reach for Text::Table:
use strict; use warnings; use Text::Table; my @s; $s[0] = "123456789"; $s[1] = "987654321"; $s[2] = "123456789"; $s[3] = "987654321"; $s[4] = "123456789"; $s[5] = "987654321"; $s[6] = "123456789"; $s[7] = "987654321"; $s[8] = "123456789"; my $tb = Text::Table->new( \'| ', '', \'| ', '', \'| ', '', \' |' ); for (@s) { my @grps = $_ =~ /(\d{3})/g; map { s/(.)/$1 /g } @grps; # add space after each digit $tb->add(@grps); } my $rule = $tb->rule(qw/- +/); my @rows = $tb->body(); print $rule; my $r = 1; for (@rows) { print $_; print $rule unless $r % 3; $r++; } __END__ +-------+-------+--------+ | 1 2 3 | 4 5 6 | 7 8 9 | | 9 8 7 | 6 5 4 | 3 2 1 | | 1 2 3 | 4 5 6 | 7 8 9 | +-------+-------+--------+ | 9 8 7 | 6 5 4 | 3 2 1 | | 1 2 3 | 4 5 6 | 7 8 9 | | 9 8 7 | 6 5 4 | 3 2 1 | +-------+-------+--------+ | 1 2 3 | 4 5 6 | 7 8 9 | | 9 8 7 | 6 5 4 | 3 2 1 | | 1 2 3 | 4 5 6 | 7 8 9 | +-------+-------+--------+
In reply to Re: format issues
by toolic
in thread format issues
by Fox
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |