[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

29.02.2008, 15:09

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

Провел на форуме:
6144796

Репутация: 1095

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

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

пример:

Код:

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;

Последний раз редактировалось Digimortal; 29.02.2008 в 15:12..