ツイートストリームをベイジアンフィルタでカテゴリ分けしていく様子を見てみました。 カテゴリとしてハッシュタグを利用します。 ハッシュタグが付いているツイートは、フィルタの学習テキストとなります。 ハッシュタグが付いていないツイートは、どのハッ…

AnyEvent(Tatsumaki)の勉強で写経するのに良さそうなサンプルプログラムがあるページを集めました。 第13回 AnyEvent：イベント駆動モジュールの方言を吸収する(モダンPerlの世界へようこそ) Hello World的な短いサンプルプログラム AnyEventでechoサーバ - …

http://d.hatena.ne.jp/memememomo/20100416/1271371693 irc_privmsg => sub { my ( $self, $msg ) = @_; my $comment = $msg->{params}->[-1]; my $trans_url = 'http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' . uri_escape($com…

こっちで書いたプログラムをAnyEvent::Handleを使って書き直してみました。割と短くなりました。 use strict; use warnings; use AnyEvent; use AnyEvent::Socket; use AnyEvent::Handle; my $proxy_port = 8080; my %conn_table; my %request; my $cv = Any…

http://gist.github.com/378947 AnyEvent::Socketを使ってProxyサーバを書いてみました。 けど、ちょっとまだ動作が不安定。 AnyEventを理解しきれていない感がたっぷりです。 AnyEvent::HTTPを使って書き直す予定。 use strict; use warnings; use AnyEvent…

http://github.com/memememomo/irc_translator 習作として、IRCの英語コメントを翻訳して表示するプログラムを書きました。 結構カオスな翻訳になるので、smart.fmで調べられるように各単語にリンクを貼るようにしました。 「perl irc_translator.psgi」で起…

最近、IRCチャットを始めたので、スクリプトからなにかできるようになればいいな、と思いました。 で、モジュールを探したら「AnyEvent::IRC」を発見しました。 ということで、投稿された英語コメントを日本語に翻訳して表示するスクリプトを書いてみました…