форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl LWP ошибка 303 Found"
Сообщение от dem on 15-Май-04, 14:51  (MSK)
Кто работал с модулем LWP наверняка сталкивались с этой ошибко, помогите Скрипт use LWP; use HTTP::Request::Common; use HTML::Parser; my $ua = LWP::UserAgent->new; $ua -> agent(заголовки под мозилу); my $request = GET('http://...'); разбираем ответ Парсером и до этого момента все работает но когда необходимо переслать ПОСТ запрос скрипту $request = POST('http://.../cgi-bin/script.pl'[at1=>$out1,$at2=>$out2], Referer => 'http://....'); $response = $ua -> request($request); *** die $response->status_line unless $response->is_succes; ## тут он и дохнет 302 Found at ./my_script.pl line *** , <STDIN> line 3. Пишет эту долбаную ошибку, вкурсе что означает она перенаправление, но ведь если работаешь обычным браузером, то такого ведь нема! В чем дело? Даже если выкинуть часть получения по Гет, все равно это долбанная ошибка. Подкинте хоть идею
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Perl LWP ошибка 303 Found"
Сообщение от dawnshade on 16-Май-04, 20:23  (MSK)
>Кто работал с модулем LWP наверняка сталкивались с этой ошибко, помогите >Скрипт >use LWP; >use HTTP::Request::Common; >use HTML::Parser; >my $ua = LWP::UserAgent->new; >$ua -> agent(заголовки под мозилу); >my $request = GET('http://...'); > >разбираем ответ Парсером и до этого момента все работает но когда необходимо >переслать ПОСТ запрос скрипту > >$request = POST('http://.../cgi-bin/script.pl'[at1=>$out1,$at2=>$out2], Referer => 'http://....'); >$response = $ua -> request($request); >*** die $response->status_line unless $response->is_succes; ## тут он и дохнет >302 Found at ./my_script.pl line *** , <STDIN> line 3. >Пишет эту долбаную ошибку, вкурсе что означает она перенаправление, но ведь если >работаешь обычным браузером, то такого ведь нема! >В чем дело? Даже если выкинуть часть получения по Гет, все равно >это долбанная ошибка. Подкинте хоть идею Видимо модуль не считает ответ 302 is_succes. Тут -то он и отваливается. А обычным браузером ты не заметишь разницу между 302 и 200. Варианты: -переписать тот скрипт, к которому коннектишься -переписать строку с die.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Perl LWP ошибка 303 Found"
Сообщение от GliNT (??) on 17-Май-04, 03:50  (MSK)
Попробуй добавить строку push @{ $ua->requests_redirectable }, 'POST'; перед строкой $response = $ua -> request($request);
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.