Как мне заставить WWW :: Mechanize работать? - PullRequest
Новая
       11

Как мне заставить WWW :: Mechanize работать?

1 голос
/ 27 мая 2009

Этот скрипт: 

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: Не удается подключиться к www.google.com:80 (соединение: неизвестная ошибка) в D: \ PERL \ try.pl строка 5

Что не так?

Ответы [ 3 ]

7 голосов
/ 27 мая 2009

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

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

3 голосов
/ 27 мая 2009

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

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

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

...