Как получить 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; 

Выдает сообщение об ошибке:

Ошибка Geting http://www.google.com: Не удается подключиться к www.google.com:80 (подключение: Неизвестная ошибка) в D : \ PERL \ try.pl строка 5

Что случилось?

Answer 1

Раньше это работало? Этот код работает на моем ящике Linux.

1. Возможно, у вас нет подключения к интернету.
2. Возможно, Google заблокировал вас.

Answer 2

Из вашего сообщения об ошибке я вижу, что вы находитесь в окне Windows (D: \ PERL \ try.pl). Может быть, брандмауэр Windows не доверяет Perl для доступа к Интернету и блокирует его трафик?

Возможно, вам повезет с добавлением правила, разрешающего доступ perl.exe к Интернету в брандмауэре Windows.

Answer 3

Возможно, ваш брандмауэр, как сказал Олфан, или вам может потребоваться использовать прокси-сервер в своей среде.