WWW :: Mechanizeを動作させるにはどうすればよいですか？

Question

このスクリプトは：http://www.google.comをGETing

エラー： は をwww.google.com:80に接続できません（接続：不明なエラー）を Dで

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

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

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

は、このエラーメッセージを生成します：\ PERL \ try.pl line 5

何が問題なのですか？

Answer 1

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

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

Answer 2

エラーメッセージから、あなたはWindowsのボックス（D：\ PERL \ try.pl）にいることがわかります。おそらく、Windowsのファイアウォールは、Perlがインターネットにアクセスしてそのトラフィックをブロックすることを信頼しないでしょうか？

Windowsファイアウォールでperl.exeがインターネットにアクセスできるようにするルールを追加すると幸運に思えるかもしれません。

Answer 3

あなたのファイアウォールは、Olfan氏のように、あるいはあなたの環境でプロキシを使用する必要があるかもしれません。