perl - lwp 用户代理 504 网关超时

Question

我正在使用 strawberry perl 5.22 并尝试运行以下代码:

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

my $response = $ua->get('https://ransomwaretracker.abuse.ch/feeds/csv/');

if ($response->is_success) {
    print $response->decoded_content;  
}
else {
    die $response->status_line;
}

我得到504网关

但是当尝试使用浏览器获取链接时它会按预期工作吗？有人可以帮助解决这个问题吗？

1. 我尝试了不同的链接，例如 http://google.com它按预期工作

2. 我尝试使用 my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0});

我收到以下错误:500 Can't connect to ... (bad hostname)

知道如何解决这个问题吗？

Answer 1

这是一个服务器端问题，如果您可以使用浏览器访问该站点，您就很幸运了。我也使用浏览器获得相同的网关超时。