我一直在尝试使用 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 上工作并且它还活着。谁能指出如何调试这个问题?