Forum Webscript.Ru

Программирование => Perl => Тема начата: A.Perez от 22 Декабря 2005, 17:19:02

Название: LWP ответ 302
Отправлено: A.Perez от 22 Декабря 2005, 17:19:02

скачиваю страницу Бестселлеров на магазине болеро при помощи LWP, сервер отвечает не 200 а 302, из за этого, страница не скачивается, как быть?
помогите пожалуйста.
Как обойти?

Название: LWP ответ 302
Отправлено: NeoNox от 22 Декабря 2005, 17:35:13

Получить страницу 302 и запросить этот документ.

Название: LWP ответ 302
Отправлено: A.Perez от 22 Декабря 2005, 17:38:19

А как это сделать? //сори за тупость

Название: LWP ответ 302
Отправлено: NeoNox от 23 Декабря 2005, 00:01:09

извиняться нужно за лень

use LWP::Simple;

my $url = \'gmail.com\';
$url = \'http://\'.$url if ($url !~ m/^http/);
my $page = head("$url");

if ($page->{\'_previous\'}->{_rc} == 302)
{
   print $page->{\'_previous\'}->{\'_headers\'}->{\'location\'};
}

Вместо print написать нужную комманду.