With Text::Table, I wonder if it's possible to add horizontal lines (rules) between each cell while not splitting multi-line cells.
$ 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__
Actual 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 | +---+-------+--------+----------+
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 | +---+-------+--------+----------+
--
Andreas

In reply to Text::Table - horizontal lines and multiline cells by andreas1234567

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.