Syohei Yoshida / Text-UnicodeTable-Simple-0.01 - search.cpan.org
リリースしました。初CPANモジュールです。
サンプルコード
CSVからテキストテーブルへの変換の例です。
#!perl use strict; use warnings; use utf8; use Text::CSV_XS; use Text::UnicodeTable::Simple; binmode STDOUT, ":utf8"; my $csv = Text::CSV_XS->new(); my $table = Text::UnicodeTable::Simple->new; $table->set_header( $csv->getline(*DATA) ); while (my $row = $csv->getline(*DATA) ) { $table->add_row( $row ); } $csv->eof or $csv->error_diag; print $table->draw; __DATA__ DATE,TIME,当日実績(万kW),前日実績(万kW) 2011/7/2,0:00,3082,3097 2011/7/2,1:00,2877,2886 2011/7/2,2:00,2750,2756 2011/7/2,3:00,2683,2691 2011/7/2,4:00,2634,2646 2011/7/2,5:00,2589,2648
結果
改善点
基本的な動作は類似モジュールを参考にしたのですが、
そこまで意識する必要はなかったかなと思いますので、
そのあたりは柔軟に考えていきたいと思います。
バグ
何かありましたら、レポートをいただけると助かります。
おわりに
CPAN Authorになれたわけですが、初めてのことだったので緊張しました。
shipitの最後の yes/noで noを 2回押して、2回リモートタグを削除するハメに
なりました。
別にこれで何かが変わるってわけではないでしょうけど、きっといい経験
だったと思えることでしょう。いいアイデアがあれば
モジュールをアップロードしたり、バグレポート書いたりできていければ
いいかと思います。
しかし自分の書いたものを cpanmでインストールできるというのも
変な気分です。そういう感覚がなくなるようにしていきたいものです。