[Rio-pm] Archive::Zip
Daniel de Oliveira Mantovani
daniel.oliveira.mantovani em gmail.com
Sexta Janeiro 2 14:34:37 PST 2009
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>
Mais detalhes sobre a lista de discussão Rio-pm