Text::ASCIITableによるアスキーテーブルレイアウト - Unknown::Programming
MySQLの出力結果みたいなのが必要になったのでCPAN漁ってたらこんなの発見。 Text::ASCIITable - Create a nice formatted table using ASCII characters. - metacpan.org 地味に凄いめちゃ便利 use Text::ASCIITable; my @rows = ( [1,'foo','2011-03-16 11:22:33'], [2,'hogehogehoge','2011-03-17 11:22:33'], [3,'uwaaaaa','2011-03-18 11:22:33'], [4,'dio','2011-03-19 11:22:33'], [5,'jojo','2011-03-20 11:22:33'], ); my $t = Text::ASCIITable->new(); $t->setCol
NEVADAブログ:現実と理想
2011年05月29日 現実と理想 今、日本では原発は悪であり必要ないとか、原発を誘致したところでは騙されたという事をいう住民がいますが、以下の発言が、この議論の全てを語っていると言えます。 ＜朝日新聞報道＞ もう仕方ない。不安を抱きつつ、原発に暮らしを託した「過去」の経緯に縛られている人もいる。 （大間）町内の漁師（６３歳）は、『マグロが汚染されないか怖いが、俺らは海を売る判断をしたんだ。』 核施設の立地の見返りに町内の２漁協が受け取った補償金は計１５０億円。組合員への配分は多い人で２０００万円に上ったという。「だから、もう（放射能汚染され、漁が出来なくなっても）仕方ない」 実際にこの１５０億円や原発関連補償金・分担金は「つかみ金」のようなお金であり、受け取る以上何も言えない状況にあります。 この漁師が受け取った２０００万円は「補償金」という名目でありながら、今のところ全く漁には影響はあ
AnyEventのサンプル - 気ままに書いてみました日記
最近何も書いていなかったのでAnyEventの復習でお茶を濁す。 AnyEvent::Introにも載っているサンプル。 普通に標準入力からの入力を待ち受けるスクリプトとどう違うの？というような疑問を持ってしまうサンプル。 use strict; use warnings; use AnyEvent; use AnyEvent::Strict; $|++; print "Enter Your Name: "; my $cv = AE::cv; my $watcher; $watcher = AnyEvent->io( fh => \*STDIN, poll => 'r', cb => sub { my $str = <STDIN>; chomp $str; undef $watcher; $cv->send($str); } ); print $cv->recv, "\n"; AnyEve
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
