Perl使用代理时抛出连接错误机械化

Question

我正尝试使用perl MECHANIZE模块下载网站中存在的pdf文件。 当我在没有任何代理连接的情况下运行程序时，它工作正常。但是当我试图在使用代理连接的公司服务器上运行程序时，我得到了下面的错误。

错误：

Error GETing http://www.google.com : Can't connect to www.google.com:80 (10060) a t Download.pl line 20.

我不知道如果我需要在程序中添加任何代理细节或者是这个东西，我们公司防火墙阻止programatical请求到一个网站吗？ 我已经尝试了很多，但coudn't找出。请问你们谁能提出建议？

Answer 1

如果你使用某种LWP的相关模块，你可以设置下列shell变量

HTTP_PROXY = your.corp.proxy：your_proxy_port

你可以检查与telnet或与wget的连接

telnet www.google.com 80 

与wget的

wget http://www.google.com 

---

Answer 2

你需要指定你到$mech代理：

$mech->proxy(['http'], 'http://proxy_address:proxy_port/');