Hachipji.pm #16の参加報告です。今回はハッカソンの方にも参加しました。他の方のレポートはHachiiojipm.orgからご覧下さい。

　現在Hachipji.pmではYet Another IRC（仮）をつくっていています。IRCとの違いの一つとして、サーバ側でメッセージログを保存していて接続が切れたユーザーが後で再ログインするとメッセージがダーっと流れる機能があります。YAIRCについてはこちらの覚書を。実際に稼働しているものはuzullaさんが運営しているhttp://yairc.cfe.jp:3000/にあります。

　さてこのシステム、socket.ioのPerl実装であるPocketIOを使っているのですが、PocketIOは基本的にサーバ側を書くためのパッケージで、クライアントの実装はないのです。同じような質問に対して作者は「クライアントつくるのは簡単だよ。でもPocketIOはサーバ側の実装だからクライアントのサンプルないよ！」てな感じのこといってるので、PocketIO::Client::IOをつくってみました。まあクライアントないとテスト書きづらいですしね。以下に簡単なbotのサンプルを

 # ユーザーのメッセージに (」・ω・)」うー が含まれていると
 # (/・ω・)/にゃー と返す
 use strict;
 use warnings;
 use PocketIO::Client::IO;
 use AnyEvent;
 use utf8;
 
 my $url    = "http://localhost:3000/";
 my $socket = PocketIO::Client::IO->connect( $url );
 
 exit unless $socket;
 
 my $time = $ARGV[0] || 3600;
 
 my $cv = AnyEvent->condvar;
 my $w  = AnyEvent->timer( after => $time, cb => $cv );
 
 $socket->on('ping pong', sub {
    if ( $_[1] eq 'FAIL' ) {
        print "ping pong FAIL\n";
        $socket->emit('nickname', 'nyal_bot');
        say_hello( $socket );
    }
 });
 
 # サーバからemitされるイベントを登録
 # github.com/vti/pocketio/
 # にある最新のバージョンなら不要
 $socket->on('join_tag', sub {});
 $socket->on('nicknames', sub {});
 $socket->on('announcement', sub {});
 $socket->on('nickname', sub {});
 $socket->on('user message log', sub {});
 
 # このボット唯一の機能
 $socket->on('user message', sub {
    my $text = $_[1]->{text};
    if ( $text =~ /\(」・ω・\)」うー/ ) {
        $socket->emit('user message', '(/・ω・)/にゃー');
    }
 });
 
 my $timer;
 $socket->on('connect' => sub {
    $socket->emit('nickname', 'nyal_bot');
    $socket->emit('join_tag', { PUBLIC => 'PUBLIC' });
    say_hello( $socket );
 
    $timer = AnyEvent->timer( after => 5, interval => 10,
        cb => sub {
            $socket->emit('ping pong', 'ping');
        }
    );
 
 });
 
 $cv->wait; 
 
 sub say_hello {
    shift->emit('user message',
        "いつもニコニコあなたの隣に這いよる混沌"
       ."にゃるらとボットです！　"
       ."どうぞにゃるボとお呼びくださいね"
    )
 }

　運がよければ先程のサイトにてこのボットがいるのを見かけられるかもしれません。それから、現在のところPocketIO::Client::IOがサポートしているtransportはwebsocketのみです。パッチウエルカムでございます。

　さて、Hachipji.pm本編ですが、今回のLTテーマは「(」・ω・)」うー(/・ω・)/にゃー」です。すいません、このテーマなら間口が広がるのではないかと思ったのですが、冷静に考えると間口が狭まってますね。私はワインのコルク抜きをもっていきました。スクリュー側を上にして回転させる側を上げ下げすると

 　 ｜
 　/｜\　　　　(」・ω・)」うー
 　 ○
 
  　↓
 
 　＼／
 　 ｜　　　　(/・ω・)/にゃー
 　 ○

　なお、CPANには既にクトゥルフネタとしてAcme::Phlegethothがあります。useするとあなたのソースコードを禍々しいものにしてくれますね！　禍々しいものにしてくれますね！　大事なことなので二回言いました。

　Hachipji.pm #15に参加しました。Preの方は今回参加できませんでした。詳しい内容や他の方のレポートはHachiiojipm.orgからご覧下さい。

　今回のLTテーマは「すあまとほん」と聞いて、資料に「すあま」を配布しました。あと「本」ということで前日に書店で見つけて衝動買いした『ぞわぞわした生きものたち』を紹介しました。Hachioji.pmのLTはいつも混迷を深めますね（当日の雰囲気はuzullaさんの写真で）。

　今後はPre Hachioji.pmでircに代わるコミュニケーションツールを作ろうという流れです。次回あたりはまだ実際のコーディングまでいたらないかもですが、興味のある方は是非ご参加ください！次回は4/28です。

　Pre Hachioji.pm #14とHachipji.pm #14に参加しました。詳しい内容や他の方のレポートリンクはHachiiojipm.orgをご参照ください。

午前〜夕方まではハッカソン的なもので、テーマはFacebookアプリでしたので、とりあえずそれ用にParumonをWebゲームにすることを目標にしました。まあ、課題がいくつかあって、第一にFacebook使っていない。アカウントは前につくったんですけど。とりあえずhachipji.pmの人を登録し始めてみたり。それと、ブラウザを使ったゲーム開発経験がないのでそこからですよ！　会場についてからはWebSocketの勉強から。hide_o_55さんのブログにあったのでPocketIOを入れてサンプルコードを動かしたり。成果発表の時にはとりあえず1ターン目にuse strictしないとHPが減る、というデモを行いました。夏ぐらいには完成を目指すといったら大変だと突っ込まれたので、ぼちぼちやっていきます。

　その後は居酒屋に移動してHachioji.pmの始まりです。テーマは浮気。私は普段LTをパワポで書いてますがWordに浮気してみましたよと。

 テーマは浮気
 N88Basicで書きますよー
 10 PRINT "Hello Word."

で、これを次のコマンドで実行すると

 $ perl -Microsoft::Word uwaki.doc
 Hello Word.

これはdoc形式のファイルに書かれたスクリプトを実行するモジュールAcme::RunDocに付属するicrosoft::Wordを利用したネタです。Perlスクリプト自体は背景色と同じにして、それ以外の文字はこれまた背景色の'#'でコメントアウトしてあります。

 #テーマは浮気
 #N88Basicで書きますよー
 #10 PRINT "Hello Word."
 use 5.014;
 say "Hello Word.";

実際は↑こんな感じですね。

　hachipji.pm初の試みだったハッカソン（他の参加者の方も、ハッカソンというよりはもくもく会云々と仰ってましたが）ですが、主催のuzullaさんとhirobanexさんお疲れ様でした。ありがとうございます。それとhondallicaさん差し入れありがとうございます。自分はこういう機会がないと普段の仕事から離れたことになかなか取り組まないので、非常によい場だったなと思いましたし、とても楽しかったです。さて、次回のHachipji.pmは3/24です。興味のある方はぜひぜひご参加ください！