update: Forget Text::Table, Text::ASCIITable is better
use strict; use warnings; use Text::ASCIITable; my $t = Text::ASCIITable::->new; $t->setCols('Nickname','Name'); $t->addRow('Lunatic-|','Håkon Nessjøen'); $t->addRow('tesepe','William Viker'); $t->addRow('espen','Espen Ursin-Holm'); $t->addRow('mamikk','Martin Mikkelsen'); $t->addRow('p33r','Espen A. Jütte'); $t->addRow(' ',' '); $t->addRow( wishlist => ' #overload to accept #push @$t, [ ( "poncho\nvilla" ) x 2 ]; # would be sweeet '); $t->addRow(' ',' '); my $p = Text::ASCIITable::->new; $p->setCols(split'','ponchovilla'); $p->addRow(split'',reverse 'ponchovilla'); $p->addRow(split'','ponchovilla'); $t->addRow( poncho => $p->draw() ); $p = Text::ASCIITable::->new; $p->setCols(qw'a b c'); $p->addRow(qw'you know me'); $t->addRow(' ',' '); $t->addRow( abc => "$p" ); print $t->draw(); __END__ .=----------+----------------------------------------------=. | Nickname | Name | |=----------+----------------------------------------------=| | Lunatic-| | Hskon Nessj°en | | tesepe | William Viker | | espen | Espen Ursin-Holm | | mamikk | Martin Mikkelsen | | p33r | Espen A. Jntte | | | | | wishlist | | | | #overload to accept | | | #push @$t, [ ( "poncho\nvilla" ) x 2 ]; | | | # would be sweeet | | | | | poncho | .=--+---+---+---+---+---+---+---+---+---+--=. | | | | p | o | n | c | h | o | v | i | l | l | a | | | | |=--+---+---+---+---+---+---+---+---+---+--=| | | | | a | l | l | i | v | o | h | c | n | o | p | | | | | p | o | n | c | h | o | v | i | l | l | a | | | | '=--+---+---+---+---+---+---+---+---+---+--=' | | | | | abc | .=----+------+---=. | | | | a | b | c | | | | |=----+------+---=| | | | | you | know | me | | | | '=----+------+---=' | '=----------+----------------------------------------------='
In reply to Re: Visualisation of environment
by PodMaster
in thread Visualisation of environment
by AndreasL
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |