次のコードでPerl AnyEvent HTTPモジュールを使用して非同期リクエストを作成しようとしています。
my $headers = {
'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
'Accept-Language'=> 'en-us,en;q=0.5',
'Connection' => 'keep-alive'
};
$request = http_request (
GET => "$url",
timeout => 5, # seconds
# persistent => 1,
# keepalive => 1,
headers => $headers,
proxy => $proxyRef,
sub {
my ($body, $hdr) = @_;
}
);
リクエストから次の応答を受け取り続けます。
{
'Reason' => 'Connection timed out',
'URL' => 'url requested',
'Status' => 595
};
このエラーの理由について AnyEvent のドキュメントを確認しましたが、うまくいきませんでした。同じ結果が得られるタイムアウト時に再試行する提案を除いて、この問題に関する他の有用なスレッドを見つけることができません。単純な 'wget' は、同じ URL とその有効な URL に対して機能します。この問題をデバッグする方法について誰か指摘できますか?