VPF::LWP, работа с прокси - Форум программистов

DrTermiT

Дата 8.5.2006, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.3.2006

Репутация: нет
Всего: нет

Делаю так:

Код


#! /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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

а почитать 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

--------------------

I love ArchLinux

sharq

Дата 9.5.2006, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

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, воспользуйся поиском, я здесь приводил функцию получения страниц через список прокси

--------------------

[color=gray]There's More Than One Way To Do It[/color]

nitr

Дата 9.5.2006, 01:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

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

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

Код


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

--------------------

I love ArchLinux

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »