ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

>> да , но выводиться ТЕКСТ НЕ ТОЙ СТРАНИЦЫ !!!

тебе надо получить кукисы при успешной аутентификации, и использовать их, при посылке запросов на сайт..

пример:

Код:

use LWP::UserAgent;
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new;
my $ua = LWP::UserAgent->new;
     $ua->agent('Opera/9.00 (Windows NT 5.1; U; ru)');
     $ua->cookie_jar($cookie_jar);

my $req = $ua->post("http://$site$path", 
	Content => ['login_name' 	=> "$login",
                             'login_password' 	=> "$pass", 
		     'login' 		=> 'submit' ]);
	$cookie_jar->extract_cookies($req);

затем делаем запросы с полученными кукисами:

Код:

my $ub = LWP::UserAgent->new;
		   $ub->agent('Opera/9.00 (Windows NT 5.1; U; ru)');
		   $ub->cookie_jar($cookie_jar);

my $rew = $ub->get("http://$site$path"."index.php?do=pm&doaction=newpm&user=$num")->as_string;