[Rio-pm] Archive::Zip

[Daniel de Oliveira Mantovani]

Olá.

Aqui está solução:

<code>

#!/usr/bin/perl

use strict;
use warnings;

# Create a Zip file
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );


my $zip = Archive::Zip->new();

open(my $file, q{<}, "arquivo.txt") or
    die "Can't open file $!\n";


foreach my $arquivo ( <$file> ) {

   chomp($arquivo);

# Add a file from disk
   my $file_member = $zip->addFile( $arquivo  );

   print "Debug $arquivo";

}

# Save the Zip file
unless ( $zip->writeToFileNamed("foi.zip") == AZ_OK ) {
   die 'write error';
}

</code>

2009/1/2 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>

> 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_)----------------
> ----------------------------------------
>



-- 
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/9c16eebc/attachment.html>