<div>Considerando que vc já tem o parser funcionando, suponha que vc tem todos esses links em objetos HTML::Element, e ele se chame @links</div><div><br></div><div><code></div><div>.</div><div>.</div><div>.</div><div>
<br></div><div>foreach my $l(@links){</div><div> if(defined($l){</div><div> my $url = $l->attr("href");</div><div> eval{$mech_obj->get($url);};</div><div> if($mech->success){</div>
<div> my $filename = $url->as_text;</div><div> my $f = undef;</div><div> eval{open $f,'>',"/tmp/$filename";};</div><div> if($!){</div><div> print "\n\nERRO AO CRIAR O ARQUIVO /tmp/$filename - $!";</div>
<div> #trate a exceção!!!</div><div> }</div><div> else{</div><div> binmode $f; #zip = arquivo binario, entao abra o arquivo no modo binario.</div><div> print $f $mech->content;</div>
<div> }</div><div> close $f;</div><div> }</div><div> }</div><div>}</div><div><br></div><div><br></div><div></code></div><div><br></div><div><br></div><div><br></div><div>Cheers!<br>
<br><div class="gmail_quote">2010/8/26 Roan Brasil Monteiro <span dir="ltr"><<a href="mailto:roanbrasil@gmail.com">roanbrasil@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
O parsing funciona ja, mas posso sim... eu ja testei, fui fazendo por etapas, e já está funcionando<br><br><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"><br><html><br> <head><br> <title>Index of /Getnet</title><br>
</head><br> <body><br><h1>Index of /Getnet</h1><br><ul><li><a href="/"> Parent Directory</a></li><br><li><a href="01_ACQR_21376_DML.zip"> 01_ACQR_21376_DML.zip</a></li><br>
<li><a href="01_ACQR_PATCH_022010.2_DML.zip"> 01_ACQR_PATCH_022010.2_DML.zip</a></li><br><li><a href="049-091126-029-A-20051.zip"> 049-091126-029-A-20051.zip</a></li><br>
<li><a href="049-091126-029-A-20051_outdated.zip"> 049-091126-029-A-20051_outdated.zip</a></li><br><li><a href="049-091126-030-A-20052.zip"> 049-091126-030-A-20052.zip</a></li><br>
<li><a href="049-091126-030-A-20052_outdated.zip"> 049-091126-030-A-20052_outdated.zip</a></li><br><li><a href="049-091126-031-A-20049.zip"> 049-091126-031-A-20049.zip</a></li><br>
<li><a href="049-091130-032-A-19935.1.zip"> 049-091130-032-A-19935.1.zip</a></li><br><li><a href="049-091201-001-A-20093.zip"> 049-091201-001-A-20093.zip</a></li><br>
<li><a href="049-091202-002-A-20093.1.zip"> 049-091202-002-A-20093.1.zip</a></li><br><li><a href="049-091202-003-A-20060.zip"> 049-091202-003-A-20060.zip</a></li><br>
<li><a href="049-091203-004-A-20049.1.zip"> 049-091203-004-A-20049.1.zip</a></li><br><li><a href="049-091203-005-A-19991.1.zip"> 049-091203-005-A-19991.1.zip</a></li><br>
<li><a href="pss_docs.zip"> pss_docs.zip</a></li><br></ul><br></body></html><br><br><br>Resultado do Parser:<br><br> Parent Directory<br> 01_ACQR_21376_DML.zip<br> 01_ACQR_PATCH_022010.2_DML.zip<br>
049-091126-029-A-20051.zip<br> 049-091126-029-A-20051_outdated.zip<br> 049-091126-030-A-20052.zip<br> 049-091126-030-A-20052_outdated.zip<br> 049-091126-031-A-20049.zip<br> 049-091130-032-A-19935.1.zip<br> 049-091201-001-A-20093.zip<br>
049-091202-002-A-20093.1.zip<br> 049-091202-003-A-20060.zip<br> 049-091203-004-A-20049.1.zip<br> 049-091203-005-A-19991.1.zip<br> 049-091203-006-A-19992.1.zip<br> 049-091203-007-A-20061.zip<br> 049-091204-008-A-PATCH-112009.zip<br>
049-091207-009-A-20146.zip<br> 049-091210-010-A-20110.zip<br> 049-091210-010-A-20110_outdated.zip<br> 049-091211-011-A-20163.zip<br> 049-091211-012-A-20228.zip<br> 049-091216-013-A-20299.zip<br> 049-091218-014-A-20294.zip<br>
049-091218-015-A-20312.zip<br> 049-091218-016-A-20315.zip<br> 049-091218-017-A-20316.zip<br> 049-091221-018-A-20309.zip<br> 049-091221-018-A-20309_outdated.zip<br> 049-091221-018-A-20309_outdated2.zip<br> 049-091221-018-A-20309_outdated3.zip<br>
<br>Agora preciso efetuar o download e não estou conseguindo.<br><br><div class="gmail_quote">Em 26 de agosto de 2010 16:45, breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span> escreveu:<div>
<div></div><div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">2010/8/26 Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>>:<br>
<div>> Galera fiz um projeto aqui e estou fazendo download de um zip file, só que<br>
> não estou conseguindo usando a lib, alguem pode me ajudar?<br>
><br>
<br>
</div>Você pode dar um exemplo do html que está fazendo parsing? Ou do<br>
conteúdo das variáveis em cada ponto crítico da execução? Ou o que seu<br>
programa deveria fazer mas não está fazendo? Ou alguma mensagem de<br>
erro?<br>
<br>
Baixar um zip com Perl pode ser tão simples quanto:<br>
<br>
perl -MLWP::Simple -e 'getprint<br>
q[<a href="http://strawberryperl.cload/5.12.1.0/strawberry-perl-5.12.1.0.zip" target="_blank">http://strawberryperl.cload/5.12.1.0/strawberry-perl-5.12.1.0.zip</a>]'<br>
> strawberry.zip<br>
<br>
[]s<br>
<br>
-b<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</blockquote></div></div></div><br><br clear="all"><div><div></div><div class="h5"><br>-- <br>Atenciosamente,<br><br>Roan Brasil Monteiro<br><a href="http://roanbrasil.wordpress.com/" target="_blank">http://roanbrasil.wordpress.com/</a><br>
<a href="http://www.gramaro.com.br/" target="_blank">http://www.gramaro.com.br/</a> - Grama em Tapete Salvador Bahia<br>
<br>
</div></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>