Perl 脚本使用代理凭据监控 URL？

Question

请帮助解决以下代码，这在我们的环境中不起作用。

use LWP;
use strict;
my $url = 'http://google.com';
my $username = 'user';
my $password = 'mypassword';
my $browser = LWP::UserAgent->new('Mozilla');
$browser->credentials("172.18.124.11:80","something.co.in",$username=>$password);
$browser->timeout(10);
my $response=$browser->get($url);
print $response->content;

输出：

无法连接到 google.com:80（超时）

LWP::Protocol::http::Socket: connect: timeout at C:/Perl/lib/LWP/Protocol/http.pm line 51。

操作系统：windows XP

问候，Gaurav

Answer 1

您是否有 172.18.124.11 的 HTTP 代理？我假设 LWP 没有使用代理。您可能想使用 env_proxy => 1 使用 new() 调用。

您在这个问题中还有一个 mod-perl2 标签。如果此代码在 mod-perl2 内部运行，则 http_proxy 环境变量可能对该代码不可见。你可以检查这个，例如。通过打印 $browser->proxy('http')。

或者只需使用 $browser->proxy('http', '172.18.124.11'); 设置代理即可

另外，我假设您没有打开 use warnings，因为 new() 需要一个哈希值，而不仅仅是一个字符串。 始终启用警告是个好主意。这将为您省去很多麻烦。