lwp useragent 504 gatway timeout

Question

我正在使用草莓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

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