Text::UnicodeTable::Simpleというのを書いてます

まだいい加減なレベルの段階なんですが、とりあえず紹介.

書いた動機

Text::ASCIITableや Text::SimpleTableでは, FullWidthな文字が
扱えなかったためです。

Text::ASCIITableを 2文字幅の文字に対応させる - Life is very short

Text::ASCIITableでなかば無理やり解決する方法を書きましたけど、
専用のものがあってもいいのではないかと思ったというのもあります。

リポジトリ

syohex/p5-Text-UnicodeTable-Simple · GitHub

サンプルコード

Table::ASCIITableとインタフェースを合わせています。
new, setCols, addRow, addRowLineメソッドしか実装していません。
Simpleなんでこれぐらいでいいかなと思ってます。

#!perl
use strict;
use warnings;

use Text::UnicodeTable::Simple;

use utf8;
binmode STDOUT, ":utf8";

my $t = Text::UnicodeTable::Simple->new;

# table header
$t->setCols('キャラクタ', '声優', 'パート', '楽器');

$t->addRow('平沢唯', '豊崎愛生',
           "リードギター\nボーカル\nコーラス", 'ギブソン レスポール');
$t->addRowLine;

$t->addRow('秋山澪', '日笠陽子',
           "ベース\nボーカル\nコーラス", 'フェンダー ジャズベース');
$t->addRowLine;

$t->addRow('田井中律', '佐藤聡美',
           "ドラムス\nコーラス", 'ヤマハ・ヒップギグ');
$t->addRowLine;

$t->addRow('琴吹紬', '寿美菜子',
           "キーボード\nサブボーカル\nコーラス", 'コルグ・TRITON Extreme');
$t->addRowLine;

$t->addRow('中野梓', '竹達彩奈',
           "リズムギター\nコーラス", 'フェンダージャパン ムスタング');

print $t->draw;