Perl-скрипт для мониторинга URL-адреса. - PullRequest
Новая
       38

Perl-скрипт для мониторинга URL-адреса.

0 голосов
/ 09 ноября 2011

Пожалуйста, помогите со следующим кодом, это не работает в нашей среде. 

use LWP;
use strict;
my $url = 'http://google.com';
my $username = 'user';
my $password = 'mypassword';
my $browser = LWP::UserAgent->new('Mozilla');
$browser->credentials("172.18.124.11:80","something.co.in",$username=>$password);
$browser->timeout(10);
my $response=$browser->get($url);
print $response->content;

ВЫХОД:

Не удается подключиться к google.com:80 (тайм-аут)

LWP :: Protocol :: http :: Socket: connect: время ожидания в C: /Perl/lib/LWP/Protocol/http.pm строка 51.

ОС: Windows XP

С уважением, Гаурав

1 Ответ

0 голосов
/ 12 ноября 2011

У вас есть HTTP прокси на 172.18.124.11? Я предполагаю, что LWP не использует прокси. Возможно, вы захотите использовать env_proxy => 1 с вызовом new().

В этом вопросе у вас также есть тег mod-perl2. Если этот код выполняется внутри mod-perl2, возможно, переменная http_proxy env невидима для кода. Вы можете проверить это, например. печатая $browser->proxy('http').

Или просто установите прокси с помощью $browser->proxy('http', '172.18.124.11');

Кроме того, я предполагаю, что вы не включили use warnings, потому что new() принимает хеш, а не просто строку. Рекомендуется всегда включать предупреждения. Это избавит вас от многих проблем.

...