LWP用户代理504 gatway超时

Question

我使用草莓的Perl 5.22，并尝试运行folllowing代码：

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

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