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/');