[Cascavel-pm] Download Zip File

[Andre Carneiro]

Pra que vc tá usando MIME::Base64 junto com um decode_content...

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...


A sua requisição deveria ser algo do tipo


$mech->credentials($user,$passwd);
eval{ $mech->get('http://url_do_arquivo.zip')};
if($mech->success){
   #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech->content. SO QUE ESSE
TROCO EH BINARIO, ENTAO:
   open my $f,'>','/tmp/arquivosalvo.zip' or die $!;  #PREGUICA DE FAZER
OUTRO EVAL... MAS NAO USE DIE!!!!
   binmode $f; #SENAO VAI DAR ZEBRA...
   print $f $mech->content;
   close $f; #ACABOU...SO ISSO!
}
else{
     print"\n\nTEM ALGO ERRADO COM A REQUISICAO $@";
}





2010/8/26 eliane franco <elidmfranco em gmail.com>

>
> olá Roan,
>
> Poderia mostrar o erro apresentado e qual lib está dando errado?
>
> []'s
> Eliane
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
(11)82907780
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/d86b9a52/attachment-0001.html>