我如何获得WWW ::机械化工作？

Question

该脚本：

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

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

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

产生此错误信息：

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

怎么了？

Answer 1

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

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

Answer 2

以前有用吗？ 此代码可在我的Linux机器上使用。

1. 可能是您没有互联网连接。
2. 也许Google阻止了您。

Answer 3

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