Perl WWW :: Механизация и печенье

Question

У вас возникли проблемы с WWW :: Механизмом.

страница Я пытаюсь загрузить содержит Javascript, который ожидает в течение 30 секунд, а затем разобрать кнопку, что нужно нажать (чтобы подтвердить, что я согласен с правилами сайта :))

Я я понял, что Mechanize не работает с JS, поэтому мне нужно получить эту страницу с кукисами, которые этот сайт помещает в мой браузер, когда я нажимаю эту кнопку.

Эти куки-л, как это: согласились => 1, lastvisit => 1388753990, lastseen => 0

Как я могу получить нужную страницу с этим печеньем "на борту"?

Код:

my $cookie_jar = HTTP::Cookies->new; 
my $agent  = WWW::Mechanize->new(cookie_jar => $cookie_jar); 

$cookie_jar->set_cookie("agreed"=>1,"lastseen"=>0,"lastvisit"=>1388753990); 

$agent->get('http://www.example.com'); 

print $agent->content(); 

Спасибо за помощь!

Answer 1

Если вы хотите реальный Mechanize перейти к WWW-Mechanize-Firefox Тогда вы получите реальный рабочую среду JS:

use WWW::Mechanize::Firefox; 
my $mech = WWW::Mechanize::Firefox->new(); 
$mech->get('http://ursite.com'); 

# The submit button is generated after the page has loaded 

my $retries = 10; 
while ($retries-- and ! $mech->is_visible(xpath => '//*[@id="submit"]')) { 
     sleep 1; 
}; 
die "Timeout" if 0 > $retries; 

# Now the element exists 
$mech->click({xpath => '//*[@id="submit"]'});