Tenho o seguinte problema, vou dar um exemplo:<br>Nesse site :<br><a href="http://www.magicdomain.com.br/index.php?sub=colecoes&amp;idSerie=57">http://www.magicdomain.com.br/index.php?sub=colecoes&amp;idSerie=57</a><br><br>
Se olhar em baixo irão se deparar com o &quot;Avançar&quot;, eu quero que sempre que encontre um avançar ele &quot;click&quot; e entre, e caso esse que ele entrou encontre &quot;Avançar&quot; de novo ele entre e assim por diante.<br>
Na verdade ele só precisa retornar os links. Estou tentando algo do tipo.<br><br>&nbsp; 1 #!usr/bin/perl<br>&nbsp; 2 <br>&nbsp; 3 use strict;<br>&nbsp; 4 use warnings;<br>&nbsp; 5 <br>&nbsp; 6 use WWW::Mechanize;<br>&nbsp; 7 <br>&nbsp; 8 my $mech = WWW::Mechanize-&gt;new(timeout =&gt; 30);<br>
&nbsp; 9 $mech-&gt;get(&#39;<a href="http://www.magicdomain.com.br/index.php?sub=colecoes&amp;begin=1&#39;">http://www.magicdomain.com.br/index.php?sub=colecoes&amp;begin=1&#39;</a>);<br>&nbsp;10 if ( $mech-&gt;success ) {<br>&nbsp;11&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach my $busters ( $mech-&gt;find_all_links( url_regex =&gt; qr/idSerie|/ ) ) {<br>
&nbsp;12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $mech-&gt;get( $busters-&gt;url_abs() );<br>&nbsp;13&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while ( $mech-&gt;content=~ qr/Avançar/ ) {<br>&nbsp;14&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $mech-&gt;follow_link( qr/Avançar/ );<br>&nbsp;15&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print $mech-&gt;url_abs,&quot;\n&quot;;<br>
&nbsp;16&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;17&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;18 }<br>&nbsp;19 else {<br>&nbsp;20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;Não pode pegar o site\n&quot;;<br>&nbsp;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 &quot;\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e&quot;,$/<br><br>