Olá a todos,<br><br>Alguem poderia me ajudar com esta duvida?<br><br>-
Estou criando um código que lê um arquivo &quot;txt&quot; onde cada linha é o
nome do arquivo que será adicionado a um arquivo compactado porem com o
código que segue ele só adiciona o ultimo item da lista alguem pode me
ajudar???<br>
<br>Agradeço desde já!<br><br><br>#!c:/Perl/perl.exe -w<br><br># Create a Zip file<br>use Archive::Zip qw( :ERROR_CODES :CONSTANTS );<br>my $zip = Archive::Zip-&gt;new();<br><br>open(ARQ, &quot;&lt;Arquivos.txt&quot;) || die $!;<br>


<br>while ($arquivo = &lt;ARQ&gt;) {&nbsp; <br>##Add a file from disk<br>&nbsp; my $file_member = $zip-&gt;addFile($arquivo);<br><br>}<br><br>close(ARQ);<br><br># Save the Zip file<br>unless ( $zip-&gt;writeToFileNamed(&#39;<div>
Analise.zip&#39;) == AZ_OK ) {<br>
&nbsp;&nbsp; die &#39;write error&#39;;<br>}</div><br clear="all"><br>-- <br>Ailton Zacarias<br>(11) 8405-8334<br><br>MSN|<a href="mailto:ailtonzsilva@yahoo.com.br" target="_blank">ailtonzsilva@yahoo.com.br</a><br>Skype|ailton.zacarias<br>