[Rio-pm] Archive::Zip

[Daniel de Oliveira Mantovani]

Olá, boa tarde.

Caso eu não esteja enganado, você usa Windows e por causa da codificação o
newline passa de \n para \r.

Faça o seguinte, adicione a seguinte linha ao seu script e veja se funciona:

<code>

$/ = \r;

</code>

e feliz ano novo!

Faça o seguinte, só para testar...
2009/1/2 Ailton Zacarias <ailtonzsilva em yahoo.com.br>

> Olá a todos,
>
> Alguem poderia me ajudar com esta duvida?
>
> - 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???
>
> Agradeço desde já!
>
>
> #!c:/Perl/perl.exe -w
>
> # Create a Zip file
> use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
> my $zip = Archive::Zip->new();
>
> open(ARQ, "<Arquivos.txt") || die $!;
>
> while ($arquivo = <ARQ>) {
> ##Add a file from disk
>   my $file_member = $zip->addFile($arquivo);
>
> }
>
> close(ARQ);
>
> # Save the Zip file
> unless ( $zip->writeToFileNamed(' Analise.zip') == AZ_OK ) {
>    die 'write error';
> }
>
>
> --
> Ailton Zacarias
> (11) 8405-8334
>
> MSN|ailtonzsilva em yahoo.com.br
> Skype|ailton.zacarias
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
http://mantovanihouse.blogspot.com/

-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(---------)----)----------
-------)----(-------)----(-----------
-------(----(-------)----)-----------
--------\_-(\\.---.//)-_/------------
----------\)' -8--8- '(/--------------
-----------/------------\---------------
----------(--)--------(--)--------------
------------(_c__c_)----------------
----------------------------------------
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090102/813a1582/attachment.html>