| Text::SimpleTable(3pm) | User Contributed Perl Documentation | Text::SimpleTable(3pm) |
Text::SimpleTable - Simple Eyecandy ASCII Tables
use Text::SimpleTable;
my $t1 = Text::SimpleTable->new(5, 10);
$t1->row('foobarbaz', 'yadayadayada');
print $t1->draw;
.-------+------------.
| foob- | yadayaday- |
| arbaz | ada |
'-------+------------'
my $t2 = Text::SimpleTable->new([5, 'Foo'], [10, 'Bar']);
$t2->row('foobarbaz', 'yadayadayada');
$t2->row('barbarbarbarbar', 'yada');
print $t2->draw;
.-------+------------.
| Foo | Bar |
+-------+------------+
| foob- | yadayaday- |
| arbaz | ada |
| barb- | yada |
| arba- | |
| rbar- | |
| bar | |
'-------+------------'
my $t3 = Text::SimpleTable->new([5, 'Foo'], [10, 'Bar']);
$t3->row('foobarbaz', 'yadayadayada');
$t3->hr;
$t3->row('barbarbarbarbar', 'yada');
print $t3->draw;
.-------+------------.
| Foo | Bar |
+-------+------------+
| foob- | yadayaday- |
| arbaz | ada |
+-------+------------+
| barb- | yada |
| arba- | |
| rbar- | |
| bar | |
'-------+------------'
print $t3->boxes->draw;
┌───────┬────────────┐
│ Foo │ Bar │
├───────┼────────────┤
│ foob- │ yadayaday- │
│ arbaz │ ada │
├───────┼────────────┤
│ barb- │ yada │
│ arba- │ │
│ rbar- │ │
│ bar │ │
└───────┴────────────┘
Simple eyecandy ASCII tables.
Text::SimpleTable implements the following methods.
my $t = Text::SimpleTable->new(5, 10);
my $t = Text::SimpleTable->new([5, 'Col1', 10, 'Col2']);
my $ascii = $t->draw;
$t = $t->hr;
$t = $t->row('col1 data', 'col2 data');
$t = $t->boxes;
"boxes" switches the output generated by "draw" to use the unicode box drawing characters. The last example above may not render nicely on some devices.
Sebastian Riedel, "sri@cpan.org".
Marcus Ramberg "mramberg@cpan.org".
In alphabetical order:
Brian Cassidy
Copyright (C) 2005-2010, Sebastian Riedel.
This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0.
| 2018-07-27 | perl v5.26.2 |