
30.04.2009, 14:18
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
С нами:
9561436
Репутация:
462
|
|
Логинюсь в vbulletin:
Код:
$url="форум";
$client = LWP::UserAgent->new( ) or die;
$client->agent('Opera/9.0 (Windows NT 5.1; U; en; (R1 1.5))');
$cookie_jarr = HTTP::Cookies->new();
$client->cookie_jar( $cookie_jarr );
$answer = $client->post($url,
Content => [
"vb_login_username" => "логин",
"vb_login_password" => "пасс",
"do" => "login",
],);
Логин удачный идём дальше на страницу того что нужно сграбить:
Код:
$url="форум&page=1";
$client = LWP::UserAgent->new( ) or die;
$client->agent('Opera/9.0 (Windows NT 5.1; U; en; (R1 1.5))');
$client->cookie_jar( $cookie_jarr );
$answer = $client->get($url);
$answer->content =~ /рерулярка/g;
потом иду на следующюю страницу, также, только естественно уже $url="форум&page=2"
но, по регулярке не грабиться ничего, даже контент страницы не показывает. помогите разобраться
т.е. дальше первой страницы ничего неграбится. sleep непомогает
если беру страницы из .тхт то всегда ошибка:
Код:
Can't call method "scheme" on an undefined value at C:/Perl/lib/HTTP/Cookies.pm
line 44, <PAGE> line 315.
Последний раз редактировалось ph1l1ster; 30.04.2009 в 14:26..
|
|
|