[Rio-pm] Res: Archive::Zip

Ailton Zacarias ailtonzsilva em yahoo.com.br
Sexta Janeiro 2 14:57:59 PST 2009


MUITO OBRIGADO!!!!!!
 Ailton Zacarias
(11)8405-8334
(11)5016-5924


MSN|ailtonzsilva em yahoo.com.br
Skype|ailton.zacarias




________________________________
De: Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>
Para: Perl Mongers Rio de Janeiro <rio-pm em pm.org>
Enviadas: Sexta-feira, 2 de Janeiro de 2009 20:34:37
Assunto: Re: [Rio-pm] Archive::Zip

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



      Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090102/615ffcbc/attachment-0001.html>


Mais detalhes sobre a lista de discussão Rio-pm