Проблемы с Perl Mechanize и прокси - PullRequest
Новая
       14

Проблемы с Perl Mechanize и прокси

1 голос
/ 07 декабря 2010

Я расстраиваю себя из-за этого слишком много часов.Я думаю, что это должно быть просто, но у меня явно есть что-то фундаментальное неправильно.Я прочитал:

Я прочитал документы cpan для: WWW-Mechanize / lib / WWW / Mechanize / FAQ.pod libwww-perl-5.837 / lib / LWP / UserAgent.pm

И каждый пример кода или статьи, которые я смог найти в Google.

Я впервые ищу помощь по переполнению стека.Заранее благодарны за Вашу помощь.Вот код: 

#!/usr/bin/perl

use WWW::Mechanize;

my $mech = WWW::Mechanize->new ( agent => "Mozilla/5.0" );

my $proxy = 'http://fetch4.me';

$mech->no_proxy('localhost');
$mech->proxy(['http', 'https', 'gopher'], $proxy) or die $!;
$mech->get('http://www.google.com');

print $mech->uri(),"\n";
print $mech->content(),"\n";
print $mech->text(),"\n";
print $mech->status(),"\n";

Вот результат: 

http://www.google.com
<html>Apache is functioning normally</html>

Apache is functioning normally
200

У меня заканчиваются идеи здесь.Этот код работает для вас?Дает ли он одинаковые результаты?Что с этим не так?>. <</p>

Спасибо, что уделили время.

Ответы [ 2 ]

2 голосов
/ 08 декабря 2010

Кажется, проблема в сервере fetch4.me.Попробуйте, например, вместо

my $ proxy = 'http://124.207.162.87:80';

1 голос
/ 07 декабря 2010

Говорит ли: 

my $mech = WWW::Mechanize->new ( agent => "Mozilla/5.0", noproxy => 1 );

помочь?

Документ подразумевает, что вам нужно сделать это, чтобы избежать неявного вызова env_proxy от LWP.

...