<br>Eu sei mas o click sao para buttons.<br><br><div class="gmail_quote">2008/11/28 Andre Carneiro <span dir="ltr"><<a href="mailto:andregarciacarneiro@gmail.com">andregarciacarneiro@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Existe um método 'click' em WWW::Mechanize...<br><br><br><a href="http://search.cpan.org/%7Epetdance/WWW-Mechanize-1.52/lib/WWW/Mechanize.pm#$mech-%3Eclick%28_$button_%5B,_$x,_$y%5D_%29" target="_blank">http://search.cpan.org/~petdance/WWW-Mechanize-1.52/lib/WWW/Mechanize.pm#$mech-%3Eclick(_$button_[,_$x,_$y]_)</a><br>
<br><br><br>Cheers!<br><br><div class="gmail_quote">2008/11/28 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div></div><div class="Wj3C7c">
Tenho o seguinte problema, vou dar um exemplo:<br>Nesse site :<br><a href="http://www.magicdomain.com.br/index.php?sub=colecoes&idSerie=57" target="_blank">http://www.magicdomain.com.br/index.php?sub=colecoes&idSerie=57</a><br>
<br>
Se olhar em baixo irão se deparar com o "Avançar", eu quero que sempre que encontre um avançar ele "click" e entre, e caso esse que ele entrou encontre "Avançar" de novo ele entre e assim por diante.<br>
Na verdade ele só precisa retornar os links. Estou tentando algo do tipo.<br><br> 1 #!usr/bin/perl<br> 2 <br> 3 use strict;<br> 4 use warnings;<br> 5 <br> 6 use WWW::Mechanize;<br> 7 <br> 8 my $mech = WWW::Mechanize->new(timeout => 30);<br>
9 $mech->get('<a href="http://www.magicdomain.com.br/index.php?sub=colecoes&begin=1%27" target="_blank">http://www.magicdomain.com.br/index.php?sub=colecoes&begin=1'</a>);<br> 10 if ( $mech->success ) {<br>
11 foreach my $busters ( $mech->find_all_links( url_regex => qr/idSerie|/ ) ) {<br>
12 $mech->get( $busters->url_abs() );<br> 13 while ( $mech->content=~ qr/Avançar/ ) {<br> 14 $mech->follow_link( qr/Avançar/ );<br> 15 print $mech->url_abs,"\n";<br>
16 }<br> 17 }<br> 18 }<br> 19 else {<br> 20 print "Não pode pegar o site\n";<br> 21 }<br><font color="#888888"><br clear="all"><br>-- <br>Procuro emprego C.V:<br><a href="http://www.danielmantovani.site50.net/" target="_blank">http://www.danielmantovani.site50.net/</a><br>
<br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br><br>
</font><br></div></div>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><font color="#888888"><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
<br>
</font><br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Procuro emprego C.V:<br><a href="http://www.danielmantovani.site50.net/">http://www.danielmantovani.site50.net/</a><br>
<br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br><br>