バージョンアップ 昨日の日記に これHTML::TagParserの中でLWPか何かでダウンロードしてTITLEをとっているんですよね。とすると、URLのサイトが重かったりするとブロックしてしまうとおもいます。POE::Component::Client::HTTP などでドキュメントを取得してからパーサにまわすほうがいいかと。 と,宮川さんからコメントを頂いたので作ってみました.POE::Componentを複数個使ったスクリプトを組むのは覚えてる限り初めてだったので,ちょっと時間がかかりました. title.pl #!/usr/local/bin/perl use POE qw(Component::IRC Component::Client::HTTP); use HTTP::Request::Common qw(GET); use HTML::TagParser; use Enco