PDA

Просмотр полной версии : perl как сделать, чтобы mech видел батоны?


roddik
12.03.2009, 15:02
Привет, есть к примеру пага ttp://morphyoss.wordpress.com/2008/03/06/us-map-featuring-the-gdps-of-many-countries/ где сабмит сделан тэгом button, при этом www::mechanize не видит такого сабмита, как это исправить?

use WWW::Mechanize;

my $url = q[http://morphyoss.wordpress.com/2008/03/06/us-map-featuring-the-gdps-of-many-countries/];
my $ua = WWW::Mechanize->new();

$ua->get($url);

print $ua->dump_forms;

biophreak
13.03.2009, 14:04
<form id="comment-form" action="http://morphyoss.wordpress.com/wp-comments-post.php" method="post">

А передавать скрипту нужное сразу не получится?Или нужно именно mechanize юзать?

roddik
13.03.2009, 17:03
у меня просто есть куча кода, которая заполняет полученные из механайза (html::form) инпуты, а писать свой модуль просто чтобы исправить эту фишку, а тем более парсить хтмл формочки самостоятельно - не гуд; в том примере, что я дал, показываются верно все инпуты, а батонов вообще нету(

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