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

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

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 |
'----+------+------------'

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

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

関連記事