Actual output:$ cat ~/test/perl/text.table/text.table.pl use strict; use warnings; use Text::Table; my $tb = Text::Table->new(\'| ', "", \' | ', "Field ", \'| ', "Length ", \'| +', "Comment ", \' |'); my @AoA = ( [ 1, "Foo", "20", "Foo" ], [ 2, "Bar", "35", "Bar\nBar" ], [ 3, "Tze", "10", "Tze\nTze" ], ); $tb->load(@AoA); my $rule = $tb->rule(qw/- +/); my @arr = $tb->body; print $rule, $tb->title, $rule; for (@arr) { print $_ . $rule; } __END__
Wanted output:$ /usr/bin/perl ~/test/perl/text.table/text.table.pl +---+-------+--------+----------+ | | Field | Length | Comment | +---+-------+--------+----------+ | 1 | Foo | 20 | Foo | +---+-------+--------+----------+ | 2 | Bar | 35 | Bar | +---+-------+--------+----------+ | | | | Bar | +---+-------+--------+----------+ | 3 | Tze | 10 | Tze | +---+-------+--------+----------+ | | | | Tze | +---+-------+--------+----------+
$ /usr/bin/perl ~/test/perl/text.table/text.table.pl +---+-------+--------+----------+ | | Field | Length | Comment | +---+-------+--------+----------+ | 1 | Foo | 20 | Foo | +---+-------+--------+----------+ | 2 | Bar | 35 | Bar | | | | | Bar | +---+-------+--------+----------+ | 3 | Tze | 10 | Tze | | | | | Tze | +---+-------+--------+----------+
In reply to Text::Table - horizontal lines and multiline cells by andreas1234567
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |