如何让WWW :: Mechanize工作？

Question

这个脚本：

use strict;
use warnings;
use WWW::Mechanize;

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

$mech->get( "http://www.google.com" );
print $mech->content;

生成此错误消息：

  

错误获取http://www.google.com：   无法连接到www.google.com:80   （连接：未知错误）at   D：\ PERL \ try.pl第5行

怎么了？

Answer 1

从您的错误消息中我看到您在Windows框中（D：\ PERL \ try.pl）。也许Windows防火墙不信任Perl访问互联网并阻止其流量？

您可能会幸运地添加允许perl.exe访问Windows防火墙中的Internet的规则。

Answer 2

之前有效吗？这段代码可以在我的Linux机器上运行。

1. 可能是您没有网络连接。
2. 也许谷歌阻止了你。

Answer 3

可能像Olfan所说的那样是您的防火墙，或者您可能需要在您的环境中使用代理。