LWP::UserAgentのtimeoutエラー判定法 (Can't connect to (connect: timeout)を出力してる場所のメモ) - 超自己満足プログラミング

LWP::UserAgentのtimeoutエラー判定法 (Can't connect to (connect: timeout)を出力してる場所のメモ) - 超自己満足プログラミング

LWP::UserAgentでtimeoutをセットしたときに、 「timeout」と「それ以外のエラー」を判別したい。 以下...概要を表示 LWP::UserAgentでtimeoutをセットしたときに、 「timeout」と「それ以外のエラー」を判別したい。 以下のようなコードを見つけたのだが、 use LWP::UserAgent; use XML::TreePP; my $ua = LWP::UserAgent->new(); $ua->timeout(3); my $tpp = XML::TreePP->new(); $tpp->set(lwp_useragent => $ua); my ($tree, $xml, $code) = $tpp->parsehttp(GET => 'http://d.hatena.ne.jp/favril/rss'); # 本当はAPIのリクエストURLとか if ( $code == 200 ) { print "取得成功\n"; } elsif ( ($code == 500) &&

• perl
• プログラム