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">&lt;<a href="mailto:elidmfranco@gmail.com">elidmfranco@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;">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_=_&quot;&quot;])" style="background-color: transparent; color: rgb(0, 102, 153); text-decoration: none;" target="_blank">oDownloadAdd($url, $dirDownload, $file, [$urlReferer = &quot;&quot;])</a></h2>




<p>Add $url to the queue, to be downloaded in $dirDownload/$file.</p><p>&gt;&gt;&gt;&gt;&gt;#The url is now queued  &lt;&lt;&lt;&lt;&lt;</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">&lt;<a href="mailto:cascavel-pm-request@pm.org" target="_blank">cascavel-pm-request@pm.org</a>&gt;</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 &#39;help&#39; 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 &quot;Re: Contents of Cascavel-pm digest...&quot;<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 &lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;<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>
        &lt;<a href="mailto:AANLkTinfFCgDWCY2sgZuhwsfFx2XpgXs04SugsH9B5sT@mail.gmail.com" target="_blank">AANLkTinfFCgDWCY2sgZuhwsfFx2XpgXs04SugsH9B5sT@mail.gmail.com</a>&gt;<br>
Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>
<br>
olá Roan,<br>
<br>
Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
<br>
[]&#39;s<br>
Eliane<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: &lt;<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>&gt;<br>





<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Thu, 26 Aug 2010 17:40:23 -0300<br>
From: Roan Brasil Monteiro &lt;<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>&gt;<br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>&gt;<br>
Message-ID:<br>
        &lt;<a href="mailto:AANLkTikJjk2SMaw_TtbNBBSM0uPsYWXN55Q00KwzezsR@mail.gmail.com" target="_blank">AANLkTikJjk2SMaw_TtbNBBSM0uPsYWXN55Q00KwzezsR@mail.gmail.com</a>&gt;<br>
Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<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 é { &quot;<a href="http://site.com.br/arquivo1.zip" target="_blank">http://site.com.br/arquivo1.zip</a>&quot;, &quot;<br>
<a href="http://site.com.te/arquivo2.zip" target="_blank">http://site.com.te/arquivo2.zip</a>&quot; ,....,arquivoN.zip&quot;}<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-&gt;new() or die;<br>
              my $oDownload = $oQueue-&gt;oDownloadAdd(<br>
            $complete_url,<br>
              &quot;C:\\&quot;,<br>
              $variavel,<br>
              ) or die;<br>
        }<br>
<br>
2010/8/26 eliane franco &lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;<br>
<br>
&gt;<br>
&gt; olá Roan,<br>
&gt;<br>
&gt; Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
&gt;<br>
&gt; []&#39;s<br>
&gt; Eliane<br>
&gt;<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Cascavel-pm mailing list<br>
&gt; <a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<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: &lt;<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>&gt;<br>





<br>
------------------------------<br>
<br>
Message: 3<br>
Date: Thu, 26 Aug 2010 18:03:21 -0300<br>
From: Andre Carneiro &lt;<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>&gt;<br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>&gt;<br>
Message-ID:<br>
        &lt;<a href="mailto:AANLkTinMhrtJJe0k68s7JcCb%2BAXiiP5qEeqyniSb8yDH@mail.gmail.com" target="_blank">AANLkTinMhrtJJe0k68s7JcCb+AXiiP5qEeqyniSb8yDH@mail.gmail.com</a>&gt;<br>
Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<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-&gt;credentials($user,$passwd);<br>
eval{ $mech-&gt;get(&#39;<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>&#39;)};<br>
if($mech-&gt;success){<br>
   #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech-&gt;content. SO QUE ESSE<br>
TROCO EH BINARIO, ENTAO:<br>
   open my $f,&#39;&gt;&#39;,&#39;/tmp/arquivosalvo.zip&#39; or die $!;  #PREGUICA DE FAZER<br>
OUTRO EVAL... MAS NAO USE DIE!!!!<br>
   binmode $f; #SENAO VAI DAR ZEBRA...<br>
   print $f $mech-&gt;content;<br>
   close $f; #ACABOU...SO ISSO!<br>
}<br>
else{<br>
     print&quot;\n\nTEM ALGO ERRADO COM A REQUISICAO $@&quot;;<br>
}<br>
<br>
<br>
<br>
<br>
<br>
2010/8/26 eliane franco &lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;<br>
<br>
&gt;<br>
&gt; olá Roan,<br>
&gt;<br>
&gt; Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
&gt;<br>
&gt; []&#39;s<br>
&gt; Eliane<br>
&gt;<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Cascavel-pm mailing list<br>
&gt; <a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<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: &lt;<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>&gt;<br>





<br>
------------------------------<br>
<br>
Message: 4<br>
Date: Thu, 26 Aug 2010 18:03:21 -0300<br>
From: Andre Carneiro &lt;<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>&gt;<br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>&gt;<br>
Message-ID:<br>
        &lt;<a href="mailto:AANLkTinMhrtJJe0k68s7JcCb%2BAXiiP5qEeqyniSb8yDH@mail.gmail.com" target="_blank">AANLkTinMhrtJJe0k68s7JcCb+AXiiP5qEeqyniSb8yDH@mail.gmail.com</a>&gt;<br>
Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<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-&gt;credentials($user,$passwd);<br>
eval{ $mech-&gt;get(&#39;<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>&#39;)};<br>
if($mech-&gt;success){<br>
   #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech-&gt;content. SO QUE ESSE<br>
TROCO EH BINARIO, ENTAO:<br>
   open my $f,&#39;&gt;&#39;,&#39;/tmp/arquivosalvo.zip&#39; or die $!;  #PREGUICA DE FAZER<br>
OUTRO EVAL... MAS NAO USE DIE!!!!<br>
   binmode $f; #SENAO VAI DAR ZEBRA...<br>
   print $f $mech-&gt;content;<br>
   close $f; #ACABOU...SO ISSO!<br>
}<br>
else{<br>
     print&quot;\n\nTEM ALGO ERRADO COM A REQUISICAO $@&quot;;<br>
}<br>
<br>
<br>
<br>
<br>
<br>
2010/8/26 eliane franco &lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;<br>
<br>
&gt;<br>
&gt; olá Roan,<br>
&gt;<br>
&gt; Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
&gt;<br>
&gt; []&#39;s<br>
&gt; Eliane<br>
&gt;<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Cascavel-pm mailing list<br>
&gt; <a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<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: &lt;<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>&gt;<br>





<br>
------------------------------<br>
<br>
Message: 5<br>
Date: Thu, 26 Aug 2010 18:34:03 -0300<br>
From: Roan Brasil Monteiro &lt;<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>&gt;<br>
Subject: Re: [Cascavel-pm] Download Zip File<br>
To: Cascavel Perl Mongers &lt;<a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a>&gt;<br>
Message-ID:<br>
        &lt;AANLkTin_uWdFCnHFXpJ=<a href="mailto:K_ymZ6dKgY_CTiBUzcZGV9%2BR@mail.gmail.com" target="_blank">K_ymZ6dKgY_CTiBUzcZGV9+R@mail.gmail.com</a>&gt;<br>
Content-Type: text/plain; charset=&quot;iso-8859-1&quot;<br>
<br>
André estou testando... realmente não tem motivo usar o Base64. \o/<br>
<br>
2010/8/26 Andre Carneiro &lt;<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>&gt;<br>
<br>
&gt; Pra que vc tá usando MIME::Base64 junto com um decode_content...<br>
&gt;<br>
&gt; Se a sua url é http  e não https(e mesmo que fosse), não vejo motivo pra vc<br>
&gt; usar MIME::Base64, fora o lance do password...<br>
&gt;<br>
&gt;<br>
&gt; A sua requisição deveria ser algo do tipo<br>
&gt;<br>
&gt;<br>
&gt; $mech-&gt;credentials($user,$passwd);<br>
&gt; eval{ $mech-&gt;get(&#39;<a href="http://url_do_arquivo.zip" target="_blank">http://url_do_arquivo.zip</a>&#39;)};<br>
&gt; if($mech-&gt;success){<br>
&gt;    #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech-&gt;content. SO QUE ESSE<br>
&gt; TROCO EH BINARIO, ENTAO:<br>
&gt;    open my $f,&#39;&gt;&#39;,&#39;/tmp/arquivosalvo.zip&#39; or die $!;  #PREGUICA DE FAZER<br>
&gt; OUTRO EVAL... MAS NAO USE DIE!!!!<br>
&gt;    binmode $f; #SENAO VAI DAR ZEBRA...<br>
&gt;    print $f $mech-&gt;content;<br>
&gt;    close $f; #ACABOU...SO ISSO!<br>
&gt; }<br>
&gt; else{<br>
&gt;      print&quot;\n\nTEM ALGO ERRADO COM A REQUISICAO $@&quot;;<br>
&gt; }<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; 2010/8/26 eliane franco &lt;<a href="mailto:elidmfranco@gmail.com" target="_blank">elidmfranco@gmail.com</a>&gt;<br>
&gt;<br>
&gt;&gt;<br>
&gt;&gt; olá Roan,<br>
&gt;&gt;<br>
&gt;&gt; Poderia mostrar o erro apresentado e qual lib está dando errado?<br>
&gt;&gt;<br>
&gt;&gt; []&#39;s<br>
&gt;&gt; Eliane<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; _______________________________________________<br>
&gt;&gt; Cascavel-pm mailing list<br>
&gt;&gt; <a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
&gt;&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;&gt;<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; --<br>
&gt; André Garcia Carneiro<br>
&gt; Analista/Desenvolvedor Perl<br>
&gt; (11)82907780<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Cascavel-pm mailing list<br>
&gt; <a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
&gt;<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: &lt;<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>&gt;<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>