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;

次のエラー メッセージが生成されます。

エラー GET http://www.google.com : Can't connect to www.google.com:80 (connect: Unknown error) at D:\PERL\try.pl line 5

どうしたの？

Answer 1

以前は機能していましたか？このコードは私の Linux ボックスで動作します。

1. インターネットに接続していない可能性があります。
2. Google があなたをブロックしたのかもしれません。