使用代理通过LWP :: UserAgent获取页面。也失败了wget和curl。浏览器工作正常

时间:2016-01-21 11:46:54

标签: perl proxy lwp

我有一个非常简单的脚本(见示例)从我们的内部服务器下载我的报告数月。然后,IT对基础架构进行了一些更改,因为我无法再使用此脚本。

我可以使用Chrome或Internet Explorer获取文件,但不能使用Perl或Python。甚至wget和curl都失败了。

  • 如果我提供的代理凭据不正确,那么我理所当然地获得407 Proxy Authentication

  • 如果我将超时设置为60秒,那么我会得到500 read timeout

  • 如果我将超时设置为90秒,我会得到503 Service Unavailable。卷曲返回network timeout

IT部门坚持认为,如果浏览器正常工作则没有问题。我错过了别的什么吗?

Perl样本

require LWP::UserAgent;

my $url =  "http://xxx.xxx.xxx.xxx/StandardReport.aspx?itemid=yyyy&date=dd-mm-yyyy&adjustments&xml=1";

my $ua = LWP::UserAgent->new;
$ua->timeout(90);
$ua->proxy(['http', 'ftp'], 'http://my_user:my_password@proxy_uri:8080');

my $response = $ua->get($url);

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

0 个答案:

没有答案
相关问题