<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:arial,helvetica,sans-serif;font-size:10pt"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ProgId" content="Word.Document"><meta name="Generator" content="Microsoft Word 11"><meta name="Originator" content="Microsoft Word 11"><link rel="File-List" href="file:///C:%5CUsers%5Cadmin%5CAppData%5CLocal%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml"><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]--><style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Tabela normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->
<p class="MsoNormal"><span style="" lang="PT-BR">MUITO</span>
OBRIGADO!!!!!!</p>
<div> </div>Ailton Zacarias<br>(11)8405-8334<br>(11)5016-5924<br><br><div>MSN|ailtonzsilva@yahoo.com.br<br>Skype|ailton.zacarias<div><br></div><div style="font-family: arial,helvetica,sans-serif; font-size: 10pt;"><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><font size="2" face="Tahoma"><hr size="1"><b><span style="font-weight: bold;">De:</span></b> Daniel de Oliveira Mantovani <daniel.oliveira.mantovani@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> Perl Mongers Rio de Janeiro <rio-pm@pm.org><br><b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 2 de Janeiro de 2009 20:34:37<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [Rio-pm] Archive::Zip<br></font><br>Olá.<br><br>Aqui está solução:<br><br><code><br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br># Create a Zip file<br>use Archive::Zip qw( :ERROR_CODES :CONSTANTS
);<br><br><br>my $zip = Archive::Zip->new();<br>
<br>open(my $file, q{<}, "arquivo.txt") or <br> die "Can't open file $!\n";<br><br><br>foreach my $arquivo ( <$file> ) {<br><br> chomp($arquivo);<br><br># Add a file from disk<br> my $file_member = $zip->addFile( $arquivo );<br>
<br> print "Debug $arquivo";<br><br>}<br><br># Save the Zip file<br>unless ( $zip->writeToFileNamed("foi.zip") == AZ_OK ) {<br> die 'write error';<br>}<br><br></code><br><br><div class="gmail_quote">
2009/1/2 Daniel de Oliveira Mantovani <span dir="ltr"><<a rel="nofollow" ymailto="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank" href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá, boa tarde.<br><br>Caso eu não esteja enganado, você usa Windows e por causa da codificação o newline passa de \n para \r.<br><br>Faça o seguinte, adicione a seguinte linha ao seu script e veja se funciona:<br><br><code><br>
<br>$/ = \r;<br><br></code><br><br>e feliz ano novo!<br><br>Faça o seguinte, só para testar... <br>2009/1/2 Ailton Zacarias <span dir="ltr"><<a rel="nofollow" ymailto="mailto:ailtonzsilva@yahoo.com.br" target="_blank" href="mailto:ailtonzsilva@yahoo.com.br">ailtonzsilva@yahoo.com.br</a>></span><br>
<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div></div><div class="Wj3C7c">Olá a todos,<br><br>Alguem poderia me ajudar com esta duvida?<br>
<br>
-
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???<br>
<br>Agradeço desde já!<br><br><br>#!c:/Perl/perl.exe -w<br><br># Create a Zip file<br>use Archive::Zip qw( :ERROR_CODES :CONSTANTS );<br>my $zip = Archive::Zip->new();<br><br>open(ARQ, "<Arquivos.txt") || die $!;<br>
<br>while ($arquivo = <ARQ>) { <br>##Add a file from disk<br> my $file_member = $zip->addFile($arquivo);<br><br>}<br><br>close(ARQ);<br><br># Save the Zip file<br>unless ( $zip->writeToFileNamed('<div>
Analise.zip') == AZ_OK ) {<br>
die 'write error';<br>}</div><br clear="all"><font color="#888888"><br>-- <br>Ailton Zacarias<br>(11) 8405-8334<br><br>MSN|<a rel="nofollow" ymailto="mailto:ailtonzsilva@yahoo.com.br" target="_blank" href="mailto:ailtonzsilva@yahoo.com.br">ailtonzsilva@yahoo.com.br</a><br>
Skype|ailton.zacarias<br>
</font><br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a rel="nofollow" ymailto="mailto:Rio-pm@pm.org" target="_blank" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a rel="nofollow" target="_blank" href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>
----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
</blockquote></div><br><br clear="all"><br>-- <br><a rel="nofollow" target="_blank" href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br><br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
</div></div></div></div><br>
<hr size=1>Veja quais são os assuntos do momento no Yahoo! + Buscados: <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/">Top 10</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/celebridades/">Celebridades</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/m%C3%BAsica/">Música</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/esportes/">Esportes</a></body></html>