perl - WWW::Mechanize 超时 - 所有 url 超时

Question

我在使用 WWW::Mechanize 时遇到问题。似乎无论我尝试访问哪个网站，我的脚本都只是在命令提示符下坐在那里，直到它超时。唯一想到的可能相关的事情如下：

• 我安装了 IE7、chrome 和 FF。FF 是我的默认浏览器，但我最近将其切换到 chrome。
• 我似乎能够使用端口 8080 访问网站就好了。
• 我最近尝试了 cookie jar 但停止使用它，因为老实说，我不确定它是如何工作的。这可能已经实例化了一个变化。

这是一个例子：

#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;

my $url = 'http://docstore.mik.ua/orelly/perl/learn/';

my $mech = WWW::Mechanize->new();

$mech->get( $url );

print $mech->content;

Answer 1

该代码似乎有效，因此它一定是防火墙/代理问题。您可以尝试设置代理：

   $mech->proxy(['http', 'ftp'], 'http://your-proxy:8080/');