Perl:HTTP::Request 中响应码的值

Question

因此，我正在编写代码以从 Internet 获取文档。文档大小约为 200 KB。这是代码:

#!/usr/local/bin/perl -w
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = "SOME URL";
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

if($res->is_success){
   print $res->content ."\n";
}
else{
  print "Error: " . $res->status_line;
}

现在，唯一的问题是我无法提及 URL 是什么。

但是，输出是:“错误:500 读取超时”。当我检查外部链接时，数据在 5 秒内下载完毕。

我什至把timeout改成1000s了，还是不行。我应该如何找到与响应相关的更多信息？文件的大小(大约 200KB)也不足以保证读取超时。服务器也不忙，每当我在浏览器上检查链接时都没有出现问题。

谢谢。

Answer 1

在这种情况下，请确保网络服务器未配置为丢弃来自脚本的请求。