Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не понимаю LWP, Возвращается запрос 
:(
    Опции темы
WERT
Дата 12.7.2007, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есть код, взят с одной из тем, проблема в том, что в файл gothim.txt должна складываться страница ответа, т.к. та что появляется после прохождения авторизации(mail.rambler.ru), а мне возвращается та, что до, но с заполненными параметрами.
Чего-то я не понимаю, никак не могу пройти форму авторизации.

код Perl 
50: #!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;

my $ua = LWP::UserAgent->new;

my $cookie_jar = HTTP::Cookies ->new(file => 'cookies.txt',autosave => 1, 
ignore_discard=>1 #важно !!!
, );

$ua ->cookie_jar($cookie_jar); 

my ($url,$response);


my $login='логин';
my $pass = 'пароль';
my $domen ='рилм-королевство';
 

$url = 'http://id.rambler.ru/script/auth.cgi'; # путь до скрипта авторизации

$response=$ua->request(POST $url, 
        {back => $domen, 
    login => $login,
         passw => $pass,
        }); 

open LOG , ">gothim.txt";
print LOG $response->as_string; 
close(LOG);

$cookie_jar->extract_cookies($response);

$cookie_jar->save('cookies.txt');

my $hdrs=HTTP::Headers->new('Accept'=>'text/plain','UserAgent'=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
my $reqG=HTTP::Request->new('GET',$domen,$hdrs);

$cookie_jar->add_cookie_header($reqG);

$response=$ua->request($reqG);

open LOG , ">wegothim_two.htm";
print LOG $response->as_string; 
close(LOG); 
 
 
PM MAIL   Вверх
Nab
Дата 12.7.2007, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Скорее всего так и есть, страница такая, а в заголовке редирект, на следующуюю...
Попробуйте показать зароловок

$response->header->as_string;


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0951 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.