André estou testando... realmente não tem motivo usar o Base64. \o/<br><br><div class="gmail_quote">2010/8/26 Andre Carneiro <span dir="ltr">&lt;<a href="mailto:andregarciacarneiro@gmail.com">andregarciacarneiro@gmail.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Pra que vc tá usando MIME::Base64 junto com um decode_content... <div><br></div><div>Se a sua url é http  e não https(e mesmo que fosse), não vejo motivo pra vc usar MIME::Base64, fora o lance do password...</div>
<div><br>
</div><div><br></div><div>A sua requisição deveria ser algo do tipo</div><div><br></div><div><br></div><div>$mech-&gt;credentials($user,$passwd);</div><div>eval{ $mech-&gt;get(&#39;<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>&#39;)};</div>

<div>if($mech-&gt;success){</div><div>   #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech-&gt;content. SO QUE ESSE TROCO EH BINARIO, ENTAO:</div><div>   open my $f,&#39;&gt;&#39;,&#39;/tmp/arquivosalvo.zip&#39; or die $!;  #PREGUICA DE FAZER OUTRO EVAL... MAS NAO USE DIE!!!!</div>

<div>   binmode $f; #SENAO VAI DAR ZEBRA...</div><div>   print $f $mech-&gt;content;</div><div>   close $f; #ACABOU...SO ISSO!</div><div>}</div><div>else{</div><div>     print&quot;\n\nTEM ALGO ERRADO COM A REQUISICAO $@&quot;;</div>

<div>}</div><div><br></div><div><br></div><div><br></div><div><br><br><div class="gmail_quote"><div class="im">2010/8/26 eliane franco <span dir="ltr">&lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;</span><br>
</div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<br><div><div></div><div class="h5">olá Roan,<div><br></div><div>Poderia mostrar o erro apresentado e qual lib está dando errado?</div><div><br></div><div>[]&#39;s</div><div>Eliane<br><br></div>
<br></div></div><div class="im">_______________________________________________<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></div></blockquote></div><br><br clear="all"><br>-- <br><div class="im">André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
(11)82907780<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>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>