ログの表示を綺麗にしたい(Text::ASCIITable)

綺麗にというか、見やすく?w
本番用のログというよりは、デバッグ用のログ出力ですかね。

use Text::ASCIITable;

my $t = Text::ASCIITable->new();

$t->setCols( 'id','name','date' );
$t->addRow([
    [ 1, 'hoge', '2014-10-10' ],
    [ 2, 'foo', '2014-10-11'],
]);

print $t->draw(
    ['+','+','-','-'],
    ['|','|','|'],
    ['+','+','-','-'],
    ['|','|','|'],
    ['+','+','-','-'],
);

基本的には、setCols()でカラム名をつけて、addRow()で要素を追加。

+------------------------+
| id | name | date       |
+------------------------+
|  1 | hoge | 2014-10-10 |
|  2 | foo  | 2014-10-11 |
+------------------------+

最後のdraw()は、見た目を変えてるだけなんで、そのまま$tをprintすると下記のような感じ。

print $t;
.------------------------.
| id | name | date       |
+----+------+------------+
|  1 | hoge | 2014-10-10 |
|  2 | foo  | 2014-10-11 |
'----+------+------------'

ま、この辺は好みで変えればよろしいかと・・w

コメントを残す

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください