如何让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:无法在D:\ PERL\try.pl第5行连接到www.google.com:80(连接:未知错误)

怎么了？

Answer 1

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

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