なんとか間に合った。

　元旦、成人式、節分、バレンタインデー……四季折々のイベントに相応しいCPANのAcmeモジュールを紹介した『本日のAcme』。
　第二部では、人生の様々な困難（例えば、納期が近い時、隣の同僚が居眠りをしていた時、Perlに失望した時、明日娘が嫁ぐ時、明日妹が嫁ぐ時、明日姉が以下略）に使いたいAcmeモジュールリストなど。

　　12/30（火）西す39a　「どんぞこ駱駝」

　なお、都合により、鬼才三鷹畳先生のイラストはほとんど無いかもしれません。

　　とりあえず目次できた。40ページぐらい？　今回は鬼才、三鷹畳先生のイラスト付。



あと２、３日でほんとに終わるんだろか。

　　うおぉぉ、全然原稿が進んでいないよお（泣）

ちゃーちゃちゃちゃー　ちゃらっら〜

特攻野郎ＡＣｍｅ（エーシーム）
デスマで鳴らした俺達投入部隊は、納期を遅らせられ当局に拘束されたが、タコ部屋を脱出し、地下にもぐった。しかし、地下でくすぶっているような俺達じゃあない。コンパイルさえ通れば洒落次第でなんでもやってのける恥知らず、不可能を可能にし巨大なバグを粉砕する、俺達、特攻野郎ＡＣｍｅ！

俺はリーダー Acme::Bleach。通称open 0, ">$0"
ソース上書きと変換の名人。俺のような変態モジュールでなければ百戦錬磨のキワモノどものリーダーは務まらん。

俺はAcme::EyeDrops。通称Ascii Art。
変換後のルックスに、Perlerはみんなイチコロさ。Asciiかましてlarryからautrijusまで何でもそろえてみせるぜ。

ようお待ちどう。俺様こそAcme::Playmate。通称use LWP::UserAgent。
引っこ抜きとしての腕は天下一品！　アク禁？　それPla？　だから何？

Acme::Brainfuck。通称use Filter::Simple。
無茶の変態だ。どんなソースでもブンまわしてみせらぁ。でも他のFilter系との併用だけはかんべんな。

俺達は、道理の通らぬコードにあえて挑戦する。頼りになる神出鬼没の、特攻野郎 ＡＣｍｅ！　助けを借りたいときは、いつでも言ってくれ。

いらん。

　　C75に当選しました。って、だいぶ書くのが遅れてしまいましたが。

　　12/30（火）西す39a　「どんぞこ駱駝」

↓前回の『Pythons & PerlMongers』(\300) 他、色々。色々。色々……

miyagawa binmodeとか３引数openじゃだめなん？（はてなブックマーク）

　　いえ、仰るとおりPerlIO経由でいいと思います。作ったのはText::CSVの拡張機能として前々からH.Merijn Brandと私が欲しかったから。あとExcel→CSV変換でのGuessや、より古いPerlでも使えるように、という理由から。

otsune perl, CPAN 個別のモジュールごとに文字変換を入れるのはPerl5 Unicodeポリシーに反する。とid:dankogaiがDISる流れ？（同上）

おー、そうなんだ。disられるのかしら？

　　久しぶりに新しいモジュールをCPANにアップしました。Text::CSV::Encodedです。基本はText::CSVですが、文字コードの変換も引き受けてくれます。

 $csv = Text::CSV::Encoded->new ({
     encoding_in  => "cp932",
     encoding_out => "utf8",
 });

みたいにやっておくと、後はparse/getline/getline_hrではCSV文字列をencoding_inとしてdecodeします。反対にcombine/printでは出力CSV文字列をencoding_outでencodeします。parse/getlineで得たデータリストをUnicodeにしたくない、あるいはcombine/printに渡すリストはUnicodeではないぞ、という場合は下記のようにします。

  $csv->encoding('euc-jp');

　　変換エンジンは標準でEncodeモジュールを使っていて単純にencodingを指定するだけですが、Encode::Guessにもある程度対応しています。

 $csv->coder_class('Text::CSV::Encoded::Coder::EncodeGuess');
 $csv->encoding( ['ucs2', 'ascii'] );
 $csv->print( \@fields ); # Microsoft Excelからのデータ

　これらは当然Perl5.8以降での利用を前提としていますので、古いPerlで使うにはT::C::E::Coder::JcodeやらT::C::E::Coder::UnicodeStringなどを自力で作る必要があります（Jcodeの例はT::C::E::Coder::Baseのドキュメントで触れています）。あとおまけ機能として

    $uni_columns = $csv->decode( 'euc-jp', $csv_line );
    $csv_line    = $csv->encode( 'euc-jp', $uni_columns );

というふうにEncodeチックに使うこともできます。

　　『パイソンズ アンド パルモンズ』50部ほど持っていったのですが、おかげさまで8割がた売れました。あんな無茶なものをこんなに買ってくださる方がいるとは、正直驚きました。興味を持ってくださった皆様、本当にありがとうございます。

　　ちなみに「Perl使ってらっしゃるんですか？」→「いいえ」とか「Ruby」とか「Perlって仕事あるんですか？」とか「Perlって何ですか？」など、ありがたいお言葉たくさん頂きました。あと「Perlですか……」と鼻で笑ってく方とか（←被害妄想）。

　　それから、隣のブースがOpenLDAPやGentoo Linuxの同人誌を出してらっしゃる方だったのですが、大変力の入った作品で感動しました。そして作者の方はPerlを使っていたそうです。10年ぐらい前に。　というわけで、大変楽しゅうございました。

　　まだ残りが若干ありますので、欲しいという奇特な方、道端で私を見かけたら一声かけてやってください。

　やっと、終わったよ〜


↑目次（クリックすると拡大します、って既に読み込んじゃってる）

　『Pythons & PerlMongers』は典型的なテーブルトークＲＰＧです。参加者はPerlモンガーとなってＤＭ（ダンザマッチョ）の提示するキャンペーンをこなし、レベルを上げていきます。「コーダ闘」と呼ばれる戦闘では、仕事の途中で投げ出されたコードを引き継いだり、ＤＭの操るモンガーが繰り出す動かないコードの書換えを行って、プログラムを完成させます。この時、プレイヤーは実際にコーディングを行い、ＤＭがレビューしたりします。

　ってな具合で、これからPerlを学習する人の社員研修もかねることができるので、お勧め！　コピー誌40数ページ 400円（予定）。

8/17（日）西た20a　「どんぞこ駱駝」にて

　　のろのろと作業中。『パイソンズ＆パルモンズ』（Ｐ＆Ｐ）。
　　↓作りかけの表紙



テーブルトークRPG。d20システムではないです。

　　備忘録。Windows上にてText::MeCab::DictでエンコーディングがSHIFT_JISのCSVファイルから辞書をリビルドするさいに

  $dict->input_encoding('shiftjis');
  $dict->rebuild;

  $dict->input_encoding('sjis');
  $dict->rebuild;

　　IDサーバのフレームワーク用モジュールNet::OpenID::Serverが出たので実験。

　　example1から辿れるIDサーバは、ログインしているけれども、相手サーバを信頼していない状態。　example2から辿れるIDサーバは、ログインしていて、かつ相手サイトを信頼もしている状態です。OpenIDのデモで試してみると違いがわかると思います。

　　CGIサンプル。要はコールバックルーチンをがしがし書いてあげれば、返値やシグネチャまわりのことはモジュールがやってくれるというわけですね。

　　先日実家から山ウドが送られてきたので調理することに。バターで炒めてウェイファー（味華）入れてみました。苦みと塩気が相まって、そこそこいけるお味に。

　　FOAFだけで友人認証する方法あたりのことをPerlで実装する上で楽ができるよう、XML::FOAF::Utilsをコツコツと作成中。FOAFのseeAlsoを辿って処理を行うtraverse(\&code,@foaf)やfinger($mbox,@foafs)と、キャッシュ関連があれば良いかなあ。
　　seeAlsoといえば、CPANのXML::FOAFにはこの属性値を取得するメソッドがなくて、FOAF認証FSWikiはXML::Parser使って自前で処理していました。先日、XML::FOAFが利用しているRDF::Core::Modelをながめて

 sub XML::FOAF::Person::seeAlso {
   $_[0]->get(
    "http://www.w3.org/2000/01/rdf-schema#seeAlso"
 );}

とすればよいことに気付きました。ところが1年も前にバグ報告が出ているという悲しいお知らせが！

　　OpenIDのデモを試すためにlivejournal.comにアカウントをつくってみました。入力フォームにblogのurlをいれて"Verify"ボタンを押すと、「あなたが誰かをこのサイトに教える許可を与えて」という趣旨のメッセージとともにlivejournal.comnの設定ページへのリンクが。そこで許可してから再度"Verify"すると成功。

　　OpenIDの人が作成したCPANモジュールNet::OpenID::Consumerのソースを眺めてみたら、土曜に書いたopenidスペックのメモの一部が間違っていたことがわかったので修正。Net::OpenID::Consume 0.03の段階では、Crypt::DSAではシグネチャの検証ができないので、opensslが必要。

　OpenIdの他にも、Dashというのがあるそうで。