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">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'">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><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>