読者です 読者をやめる 読者になる 読者になる

Text::UnicodeTable::Simple 0.02をリリースしました

perl cpan

Text-UnicodeTable-Simple-0.02 - Create a formatted table using characters. - metacpan.org


変更点は

  • borderを表示しないオプションの追加
  • 一度に行を追加するメソッド(add_rows)の追加

です。両方共、Text::Tableに影響されたものです。

コード例

#!/usr/bin/env perl
use strict;
use warnings;

use utf8;
use Text::UnicodeTable::Simple;

binmode STDOUT, ":utf8";

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

# using alias method of Text::ASCIITable
$t->setCols('Id','Name','Price');
$t->addRow(1,'りんご',24.4);
$t->addRow(2,'パイナップル',21.2);
$t->addRowLine();
$t->addRow(3,'パッションフルーツ',12.3);
$t->addRowLine();
$t->addRow('','Total',57.9);
print $t->draw;

print "\n";

my $no_border_t = Text::UnicodeTable::Simple->new(border => 0);

$no_border_t->set_header('Id','Name','Price');
$no_border_t->add_rows(
    [1,  'りんご', 24.4],
    [2,  'パイナップル', 21.2],
    [3,  'パッションフルーツ', 12.3],
    ['', 'Total', 57.9],
);
print $no_border_t->draw;

結果

文字で貼り付けるとずれるので、画像にしました。

おわりに

これで version 0.01のモジュールを一個だけリリースしていると
いう状態からは卒業できたわけですが、もっと新しいアイデア
盛り込むなり、別のモジュールをアップロードしたりしたいです。
今書いている aalibのバインディングをとりあえず仕上げます。