[Rio-pm] Res: Archive::Zip

[Lucas Mateus]

Os arquivos nao eram encontrados por causa da quebra de linha dentro do txt.

2009/1/2 Ailton Zacarias <ailtonzsilva em yahoo.com.br>

> 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: Top 10<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/>-
> Celebridades<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/celebridades/>-
> Música<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/m%C3%BAsica/>-
> Esportes<http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/esportes/>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090104/c941cbd5/attachment.html>