Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > LWP, работа с прокси

Автор: DrTermiT 8.5.2006, 22:20

Делаю так:

Код


#! /usr/bin/perl -w
use strict;

print "Content-type:text/html\n\n";
my $browser = LWP::UserAgent->new;
my $url = 'http://www.ya.ru/';
$browser->agent('Mozilla/4.76 [en] (Win98; U)');
$browser->env_proxy;
$browser->proxy('http', 'http://200.79.192.11:80/'); #ip и port прокси
my $response = $browser->get($url);
die "Can't get $url -- ", $response->status_line
unless $response->is_success;
print  $response->content;

Но ничего не происходит...
В чем может быть проблема? (прокси брал точно работающие)

Автор: nitr 8.5.2006, 22:34

а почитать perldoc LWP???

Код

#!/usr/bin/perl
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $url = 'http://www.ya.ru/';
$ua->timeout(15);
$ua->proxy('http' => 'http://200.79.192.11:80');
my $response = $ua->get($url);    
print  $response->content;

под себя сделай smile

Автор: sharq 9.5.2006, 00:15

nitr,
Только вот еще что надо добавить:

Код


if ($response->is_success && (my $result = $response->content)) {
    warn "Get page $url\n";
    print $result;
} else {
    warn "Can't get page $url ".$response->status_line."\n";
}

Добавлено @ 00:19
DrTermiT, воспользуйся поиском, я здесь приводил функцию получения страниц через список прокси

Автор: nitr 9.5.2006, 01:17

sharq, я делал пример smile

ему было достаточно прочесть perldoc и использовать мою подсказку ;)
думаю ему достаточно было его кода

Код


die "Can't get $url -- ". $response->status_line unless $response->is_success;