使い方
テーブルヘッダをコンストラクタの 'header'パラメータか, set_headerメソッドで設定します. テーブルヘッダに列数が決めているので, 必ず設定が必要です. 行については add_rowメソッド及び add_rowsメソッドで設定します. 区切りの線を入れたい場合は add_row_lineメソッドを使います. drawメソッドでテーブルの文字列を取得できます. また文字列化を overrideしているのでオブジェクトを文字列として扱えば drawメソッド相当のことが行えます.
コンストラクタの borderパラメータでテーブルの罫線の有無を制御できます. デフォルトでは有効になっているので, 罫線を表示したくない場合は 'border => 0'としてください.
テーブルの要素はバイナリ列ではなく文字列(decode済み)を使ってください.
以下にサンプルを示します.
#!perl
use strict;
use warnings;
use utf8;
use Text::UnicodeTable::Simple;
binmode STDOUT, ":utf8";
my $table = Text::UnicodeTable::Simple->new(
header => [ qw/名前 在庫数 値段(円)/ ],
);
$table->add_rows(
[ qw/肉まん 100 88/ ],
[ qw/カレーマン 80 100/ ],
[ qw/スライムマン 2048 170/ ],
[ qw/ピザマン 70 120/ ],
);
print "$table";
イメージ
色つき文字の対応
コンストラクタに 'ansi_color => 1'を指定することで, ANSI Colorシーケンスを含む文字も扱うことが可能になります. 以下にその例を示します.
#!perl
use strict;
use warnings;
use utf8;
use Term::ANSIColor qw(:constants);
use Term::ExtendedColor qw(:all);
use Text::UnicodeTable::Simple;
binmode STDOUT, ":utf8";
my $table = Text::UnicodeTable::Simple->new(
header => [qw/名前 よみ 生年月日 キャッチフレーズ/],
ansi_color => 1,
);
my @info_by_color = (
purple => [ qw/高城れに たかぎれに 1993年6月21日 感電少女/ ],
red1 => [ qw/百田夏菜子 ももたかなこ 1994年7月12日 茶畑のシンデレラ/ ],
green1 => [ qw/有安杏果 ありやすももか 1995年3月15日 小さな巨人/ ],
yellow1 => [ qw/玉井詩織 たまいしおり 1995年6月4日 みんなの妹/ ],
hotpink => [ qw/佐々木彩夏 ささきあやか 1996年6月11日 ももクロのアイドル/ ],
);
while ( my ($color, $value) = splice @info_by_color, 0, 2 ) {
$table->add_row(
[ map { fg('bold', fg($color, $_)) } @{$value} ]
);
}
print $table->draw, "\n";
イメージ
