[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