![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
WERT |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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); |
|||
|
||||
Nab |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 582 Регистрация: 25.3.2006 Где: Kiev Репутация: 26 Всего: 37 |
Скорее всего так и есть, страница такая, а в заголовке редирект, на следующуюю...
Попробуйте показать зароловок $response->header->as_string; -------------------- Чтобы правильно задать вопрос нужно знать больше половины ответа... Perl Community FREESCO in Ukraine |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |