Elaine,<br><br>Obrigado, no caso do que o André sugeriu me ajudou, mas vou tentar ver se esse teu jeito funciona também pois é mais uma forma de aprender. <br><br>Obrigado.<br><br><div class="gmail_quote">2010/8/27 eliane franco <span dir="ltr"><<a href="mailto:elidmfranco@gmail.com">elidmfranco@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Olá Roan,<div><br></div><div>Desculpe se de alguma forma eu veja coisas simples, estou tentando te ajudar a achar o raciocínio para o que deseja.</div>
<div>Vamos lá!</div><div><br></div><div>Vc já checou se o conteúdo dessa array tem exatamente o que vc espera? (print array por exemplo)</div>
<div><br></div><div>Vc não pode usar serviço FTP? <span style="font-family: arial,sans-serif; font-size: medium;">Net::FTP::Robust - download files over FTP</span></div>
<div><br></div><div>Quanto a função, veja :</div><div><span style="font-family: arial,sans-serif; font-size: medium;"><h2 style="background-color: transparent; color: rgb(0, 102, 153); font-size: medium;">
<a href="http://search.cpan.org/%7Ejohanl/Net-Download-Queue-0.04/lib/Net/Download/Queue.pm#___top" title="click to go to top of document" name="12ab17d567994dcf_12ab169755401d12_12ab1534fb754142_12ab13e2aeafd5a5_oDownloadAdd($url,_$dirDownload,_$file,_[$urlReferer_=_""])" style="background-color: transparent; color: rgb(0, 102, 153); text-decoration: none;" target="_blank">oDownloadAdd($url, $dirDownload, $file, [$urlReferer = ""])</a></h2>
<p>Add $url to the queue, to be downloaded in $dirDownload/$file.</p><p>>>>>>#The url is now queued <<<<<</p><p># on another command line (you can have many of these)</p><p>download_queue --process</p>
<p>#Urls are downloades as they appear in the queue.</p><p><span style="font-family: arial; font-size: small;"><br></span></p><p><span style="font-size: small;">abraços,</span></p>
<p><span style="font-size: small;">Eliane</span></p><p><span style="font-family: arial; font-size: small;"><br></span></p><p><span style="font-family: arial; font-size: small;"><br>
</span></p><p><span style="font-family: arial; font-size: small;"><br></span></p><p><span style="font-family: arial; font-size: small;">Em 26 de agosto de 2010 18:34, <span dir="ltr"><<a href="mailto:cascavel-pm-request@pm.org" target="_blank">cascavel-pm-request@pm.org</a>></span> escreveu:</span></p>
</span></div><div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Enviar submissões para a lista de discussão Cascavel-pm para<br>
<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a><br>
<br>
Para se cadastrar ou descadastrar via WWW, visite o endereço<br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou<br>
corpo da mensagem para<br>
<a href="mailto:cascavel-pm-request@pm.org" target="_blank">cascavel-pm-request@pm.org</a><br>
<br>
Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br>
endereço<br>
<a href="mailto:cascavel-pm-owner@pm.org" target="_blank">cascavel-pm-owner@pm.org</a><br>
<br>
Quando responder, por favor edite sua linha Assunto assim ela será<br>
mais específica que "Re: Contents of Cascavel-pm digest..."<br>
<br>
<br>
Tópicos de Hoje:<br>
<br>
1. Re: Download Zip File (eliane franco)<br>
2. Re: Download Zip File (Roan Brasil Monteiro)<br>
3. Re: Download Zip File (Andre Carneiro)<br>
4. Re: Download Zip File (Andre Carneiro)<br>
5. Re: Download Zip File (Roan Brasil Monteiro)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Thu, 26 Aug 2010 17:36:40 -0300<br>
From: eliane franco <<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: <a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a><br>
Message-ID:<br>
<<a href="mailto:AANLkTinfFCgDWCY2sgZuhwsfFx2XpgXs04SugsH9B5sT@mail.gmail.com" target="_blank">AANLkTinfFCgDWCY2sgZuhwsfFx2XpgXs04SugsH9B5sT@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
olá Roan,<br>
<br>
Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
<br>
[]'s<br>
Eliane<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/e30b5eba/attachment-0001.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/e30b5eba/attachment-0001.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Thu, 26 Aug 2010 17:40:23 -0300<br>
From: Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>><br>
Message-ID:<br>
<<a href="mailto:AANLkTikJjk2SMaw_TtbNBBSM0uPsYWXN55Q00KwzezsR@mail.gmail.com" target="_blank">AANLkTikJjk2SMaw_TtbNBBSM0uPsYWXN55Q00KwzezsR@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Oi Eliane,<br>
<br>
A priori não há erro algum... a minha dúvida é...<br>
<br>
Esqueçendo um pouco meu código, considerando que tenho um array<br>
onde o conteudo é { "<a href="http://site.com.br/arquivo1.zip" target="_blank">http://site.com.br/arquivo1.zip</a>", "<br>
<a href="http://site.com.te/arquivo2.zip" target="_blank">http://site.com.te/arquivo2.zip</a>" ,....,arquivoN.zip"}<br>
Se uso esse método ele não salva no C:\\ o meyu arquiv, gostaria de saber<br>
uma alternativa que funcionasse sem problemas, ele passa direto do código e<br>
não resolve.<br>
<br>
my $oQueue = Net::Download::Queue->new() or die;<br>
my $oDownload = $oQueue->oDownloadAdd(<br>
$complete_url,<br>
"C:\\",<br>
$variavel,<br>
) or die;<br>
}<br>
<br>
2010/8/26 eliane franco <<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>><br>
<br>
><br>
> olá Roan,<br>
><br>
> Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
><br>
> []'s<br>
> Eliane<br>
><br>
><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>
><br>
<br>
<br>
<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>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/cd227129/attachment-0001.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/cd227129/attachment-0001.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 3<br>
Date: Thu, 26 Aug 2010 18:03:21 -0300<br>
From: Andre Carneiro <<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>><br>
Message-ID:<br>
<<a href="mailto:AANLkTinMhrtJJe0k68s7JcCb%2BAXiiP5qEeqyniSb8yDH@mail.gmail.com" target="_blank">AANLkTinMhrtJJe0k68s7JcCb+AXiiP5qEeqyniSb8yDH@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Pra que vc tá usando MIME::Base64 junto com um decode_content...<br>
<br>
Se a sua url é http e não https(e mesmo que fosse), não vejo motivo pra vc<br>
usar MIME::Base64, fora o lance do password...<br>
<br>
<br>
A sua requisição deveria ser algo do tipo<br>
<br>
<br>
$mech->credentials($user,$passwd);<br>
eval{ $mech->get('<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>')};<br>
if($mech->success){<br>
#BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech->content. SO QUE ESSE<br>
TROCO EH BINARIO, ENTAO:<br>
open my $f,'>','/tmp/arquivosalvo.zip' or die $!; #PREGUICA DE FAZER<br>
OUTRO EVAL... MAS NAO USE DIE!!!!<br>
binmode $f; #SENAO VAI DAR ZEBRA...<br>
print $f $mech->content;<br>
close $f; #ACABOU...SO ISSO!<br>
}<br>
else{<br>
print"\n\nTEM ALGO ERRADO COM A REQUISICAO $@";<br>
}<br>
<br>
<br>
<br>
<br>
<br>
2010/8/26 eliane franco <<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>><br>
<br>
><br>
> olá Roan,<br>
><br>
> Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
><br>
> []'s<br>
> Eliane<br>
><br>
><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>
><br>
<br>
<br>
<br>
--<br>
André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
(11)82907780<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/d86b9a52/attachment-0002.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/d86b9a52/attachment-0002.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 4<br>
Date: Thu, 26 Aug 2010 18:03:21 -0300<br>
From: Andre Carneiro <<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>><br>
Message-ID:<br>
<<a href="mailto:AANLkTinMhrtJJe0k68s7JcCb%2BAXiiP5qEeqyniSb8yDH@mail.gmail.com" target="_blank">AANLkTinMhrtJJe0k68s7JcCb+AXiiP5qEeqyniSb8yDH@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
Pra que vc tá usando MIME::Base64 junto com um decode_content...<br>
<br>
Se a sua url é http e não https(e mesmo que fosse), não vejo motivo pra vc<br>
usar MIME::Base64, fora o lance do password...<br>
<br>
<br>
A sua requisição deveria ser algo do tipo<br>
<br>
<br>
$mech->credentials($user,$passwd);<br>
eval{ $mech->get('<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>')};<br>
if($mech->success){<br>
#BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech->content. SO QUE ESSE<br>
TROCO EH BINARIO, ENTAO:<br>
open my $f,'>','/tmp/arquivosalvo.zip' or die $!; #PREGUICA DE FAZER<br>
OUTRO EVAL... MAS NAO USE DIE!!!!<br>
binmode $f; #SENAO VAI DAR ZEBRA...<br>
print $f $mech->content;<br>
close $f; #ACABOU...SO ISSO!<br>
}<br>
else{<br>
print"\n\nTEM ALGO ERRADO COM A REQUISICAO $@";<br>
}<br>
<br>
<br>
<br>
<br>
<br>
2010/8/26 eliane franco <<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>><br>
<br>
><br>
> olá Roan,<br>
><br>
> Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
><br>
> []'s<br>
> Eliane<br>
><br>
><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>
><br>
<br>
<br>
<br>
--<br>
André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
(11)82907780<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/d86b9a52/attachment-0003.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/d86b9a52/attachment-0003.html</a>><br>
<br>
------------------------------<br>
<br>
Message: 5<br>
Date: Thu, 26 Aug 2010 18:34:03 -0300<br>
From: Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>><br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>><br>
Message-ID:<br>
<AANLkTin_uWdFCnHFXpJ=<a href="mailto:K_ymZ6dKgY_CTiBUzcZGV9%2BR@mail.gmail.com" target="_blank">K_ymZ6dKgY_CTiBUzcZGV9+R@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
André estou testando... realmente não tem motivo usar o Base64. \o/<br>
<br>
2010/8/26 Andre Carneiro <<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>><br>
<br>
> Pra que vc tá usando MIME::Base64 junto com um decode_content...<br>
><br>
> Se a sua url é http e não https(e mesmo que fosse), não vejo motivo pra vc<br>
> usar MIME::Base64, fora o lance do password...<br>
><br>
><br>
> A sua requisição deveria ser algo do tipo<br>
><br>
><br>
> $mech->credentials($user,$passwd);<br>
> eval{ $mech->get('<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>')};<br>
> if($mech->success){<br>
> #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech->content. SO QUE ESSE<br>
> TROCO EH BINARIO, ENTAO:<br>
> open my $f,'>','/tmp/arquivosalvo.zip' or die $!; #PREGUICA DE FAZER<br>
> OUTRO EVAL... MAS NAO USE DIE!!!!<br>
> binmode $f; #SENAO VAI DAR ZEBRA...<br>
> print $f $mech->content;<br>
> close $f; #ACABOU...SO ISSO!<br>
> }<br>
> else{<br>
> print"\n\nTEM ALGO ERRADO COM A REQUISICAO $@";<br>
> }<br>
><br>
><br>
><br>
><br>
><br>
> 2010/8/26 eliane franco <<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>><br>
><br>
>><br>
>> olá Roan,<br>
>><br>
>> Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
>><br>
>> []'s<br>
>> Eliane<br>
>><br>
>><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>
>><br>
><br>
><br>
><br>
> --<br>
> André Garcia Carneiro<br>
> Analista/Desenvolvedor Perl<br>
> (11)82907780<br>
><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>
><br>
<br>
<br>
<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>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/eae5f83a/attachment.html" target="_blank">http://mail.pm.org/pipermail/cascavel-pm/attachments/20100826/eae5f83a/attachment.html</a>><br>
<br>
------------------------------<br>
<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>
<br>
Fim da Digest Cascavel-pm, volume 361, assunto 6<br>
************************************************<br>
</blockquote></div><br></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>