$ 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__ #### $ /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 | +---+-------+--------+----------+