perl - 如何让 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 访问互联网并阻止其流量？

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

Answer 2

以前有效吗？此代码适用于我的 Linux 机器。

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

Answer 3

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