
27.07.2008, 23:57
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами:
9591697
Репутация:
96
|
|
текс...опять я  вообщем такая ситуация,я с помощью пост запроса логинюсь на сайте,и потом пытаюсь получить страницу которую можно просматривать только авторизированым пользователям(с помощью гет) но мне выдается страница входа.Как поправить?
#! /usr/bin/perl
use strict;
use warnings;
use LWP;
#use LWP::Simple;
################################################Lo gin on site#
my $login='xxx@gmail.com';
my $pass='xxx';
my $url='http://www.xxx.com/?action=login';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);
my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea =new_message&savelast=1';
my @xx=get $sendurl;
open(XX,'>1.htm');
print XX @xx;
|
|
|