Показать сообщение отдельно

  #9  
Старый 30.04.2009, 14:18
ph1l1ster
Постоянный
Регистрация: 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..
 
Ответить с цитированием