Eu fiz algo parecido com :<br>#!usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>use WWW::Mechanize;<br><br>my $mech = WWW::Mechanize->new(timeout => 30);<br>$mech->get('<a href="http://www.magicdomain.com.br/index.php?sub=colecoes&begin=1'">http://www.magicdomain.com.br/index.php?sub=colecoes&begin=1'</a>);<br>
if ( $mech->success ) {<br> foreach my $busters ( $mech->find_all_links( url_regex => qr/idSerie|/ ) ) {<br> $mech->get( $busters->url_abs() );<br> if ( $mech->follow_link( url_regex => qr/p=/ ) ) {<br>
print $mech->content();<br> }<br> }<br>}<br>else {<br> print "Não pode pegar o site\n";<br>}<br><br><div class="gmail_quote">2008/11/28 Alexei Znamensky <span dir="ltr"><<a href="mailto:russoz@gmail.com">russoz@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;">Daniel,<br><br>De um script que estou fazendo:<br><br> print "choosing to find by part number... ";<br>
$agent->follow_link( text => 'Find by Part Number' );<br><br>Procure esse método "follow_link".<br>
<br>[]s,<br>Russo<div><div></div><div class="Wj3C7c"><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;">
<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" target="_blank">andregarciacarneiro@gmail.com</a>></span><div>
<div></div><div><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>
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" 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></div></div><div><div></div><div><br><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>
</div></div><br>_______________________________________________<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><br><br clear="all"><br>-- <br></div></div><font color="#888888">Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<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>