表形式の出力

---

　Text::ASCIITableモジュールを使うとデータを表形式で出力することができます。

use strict;
use warnings;
use Text::ASCIITable;

my @url = (
	[google => 'http://www.google.co.jp'],
	[yahoo => 'http://www.yahoo.co.jp'],
	[biglobe => 'http://www.biglobe.ne.jp'],
);

my @header = (
	'サイト', 'URL',
);

my $tbl = Text::ASCIITable->new;
$tbl->setCols(@header);
$tbl->setOptions({alignHeadRow => 'center'});

foreach my $row (@url) {
	$tbl->addRow(@$row);
}

print $tbl->draw, "\n";

　このスクリプトを実行すると、以下のように出力されます。

.---------+--------------------------.
|  サイト |            URL           |
|=--------+-------------------------=|
| google  | http://www.google.co.jp  |
| yahoo   | http://www.yahoo.co.jp   |
| biglobe | http://www.biglobe.ne.jp |
'---------+--------------------------'

---

関連項目

・木構造の出力