Olá, boa tarde.<br><br>Caso eu não esteja enganado, você usa Windows e por causa da codificação o newline passa de \n para \r.<br><br>Faça o seguinte, adicione a seguinte linha ao seu script e veja se funciona:<br><br><code><br>
<br>$/ = \r;<br><br></code><br><br>e feliz ano novo!<br><br>Faça o seguinte, só para testar... <br>2009/1/2 Ailton Zacarias <span dir="ltr"><<a href="mailto:ailtonzsilva@yahoo.com.br">ailtonzsilva@yahoo.com.br</a>></span><br>
<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Olá a todos,<br><br>Alguem poderia me ajudar com esta duvida?<br><br>
-
Estou criando um código que lê um arquivo "txt" 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->new();<br><br>open(ARQ, "<Arquivos.txt") || die $!;<br>
<br>while ($arquivo = <ARQ>) { <br>##Add a file from disk<br> my $file_member = $zip->addFile($arquivo);<br><br>}<br><br>close(ARQ);<br><br># Save the Zip file<br>unless ( $zip->writeToFileNamed('<div>
Analise.zip') == AZ_OK ) {<br>
die 'write error';<br>}</div><br clear="all"><font color="#888888"><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>
</font><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>
----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>