2009年05月05日00:39 Perl POEで簡単なIRCのbotを作ってみた。 今頃!?って感じもしますが、POEを使ってみました。(*・ω・)ノ POEはイベント駆動アプリケーションフレームワークで、イベントに対するアクションを設定することで、設定したイベントに対してリアルタイムに処理できる、というものみたいです。今回はIRCで、「URLを投げられたらタイトルを返す」というbotを作ってみました。ソースを貼っときます。 irc.pl #!/usr/bin/perl use strict; use warnings; use POE qw(Component::IRC); use HTML::TagParser; my $url = qr{s?https?://[\-_\.~\*'\(\)a-zA-Z0-9;/\?:@&=\+,%#]+}; my $channel = '#hoge