<HTML><HEAD></HEAD>
<BODY
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space"
dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV><FONT size=3 face=Calibri>sem comentários, não vale a pena.</FONT></DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV><FONT size=3 face=Calibri>mas mantenho o meu ‘Amadureça’.</FONT></DIV>
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title=daniel.oliveira.mantovani@gmail.com
href="mailto:daniel.oliveira.mantovani@gmail.com">Daniel Mantovani</A> </DIV>
<DIV><B>Sent:</B> Tuesday, May 29, 2012 11:53 AM</DIV>
<DIV><B>To:</B> <A title=ulisses@ibiz.com.br
href="mailto:ulisses@ibiz.com.br">ulisses@ibiz.com.br</A> </DIV>
<DIV><B>Cc:</B> <A title=rio-pm@pm.org href="mailto:rio-pm@pm.org">Perl Mongers
Rio de Janeiro</A> </DIV>
<DIV><B>Subject:</B> Re: [Rio-pm] Unzip</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV apple-content-edited="true"><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space"><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space">Você
usa Perl como se tivesse usando papel higiênico, e eu preciso amadurecer. Da
para perceber o quão maduro você é.</DIV>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space">Para
de se achar, e aprende alguma coisa.</DIV>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space"> </DIV>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space">[]'s</DIV>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space">--
<BR>Software Engineer<BR>Just Another Perl Hacker<BR>Daniel Mantovani +5511
8538-9897<BR>XOXO</DIV></SPAN></DIV></SPAN></SPAN></DIV>
<DIV> </DIV>
<DIV>
<DIV>On May 29, 2012, at 11:47 AM, <<A
href="mailto:ulisses@ibiz.com.br">ulisses@ibiz.com.br</A>> wrote:</DIV><BR
class=Apple-interchange-newline>
<BLOCKQUOTE type="cite"><BASE href="x-msg://29/">
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space"
dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>Mantovani, menos.</DIV>
<DIV> </DIV>
<DIV>Amadureça.</DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title=daniel.oliveira.mantovani@gmail.com
href="mailto:daniel.oliveira.mantovani@gmail.com">Daniel Mantovani</A> </DIV>
<DIV><B>Sent:</B> Tuesday, May 29, 2012 11:04 AM</DIV>
<DIV><B>To:</B> <A title=ulisses@ibiz.com.br
href="mailto:ulisses@ibiz.com.br">ulisses@ibiz.com.br</A> ; <A
title=rio-pm@pm.org href="mailto:rio-pm@pm.org">Perl Mongers Rio de
Janeiro</A> </DIV>
<DIV><B>Subject:</B> Re: [Rio-pm] Unzip</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV>Ulisses,</DIV>
<DIV> </DIV>
<DIV>Se for para fazer porcaria, use Shell Script.</DIV>
<DIV>
<DIV> </DIV>
<DIV><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space"><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span>
<DIV
style="WORD-WRAP: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space">--
<BR>Software Engineer<BR>Just Another Perl Hacker<BR>Daniel Mantovani +5511
8538-9897<BR>XOXO</DIV></SPAN></DIV></SPAN></SPAN></DIV>
<DIV> </DIV>
<DIV>
<DIV>On May 29, 2012, at 10:14 AM, <<A
href="mailto:ulisses@ibiz.com.br">ulisses@ibiz.com.br</A>> wrote:</DIV><BR
class=Apple-interchange-newline>
<BLOCKQUOTE type="cite"><SPAN
style="WIDOWS: 2; TEXT-TRANSFORM: none; TEXT-INDENT: 0px; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; FONT: medium helvetica; WHITE-SPACE: normal; ORPHANS: 2; WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none"
class=Apple-style-span>
<DIV style="FONT-FAMILY: tahoma; FONT-SIZE: 10pt" dir=ltr class=hmmessage>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: calibri; COLOR: rgb(0,0,0); FONT-SIZE: 12pt">
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: calibri; COLOR: rgb(0,0,0); FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV><FONT size=3 face=Calibri>jeito ‘dirty’ que funciona em Linux e MS$
|(se vc baixar o unzip for windows na máquina).</FONT></DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV><FONT size=3 face=Calibri>se vc puder dar um exec no comando unzip,
sugiro</FONT></DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV>$cmd = "unzip -o \"$in\" -d $path_temp_zip"; # unzipa $in no subdir
temporario, adicao de -o para overwrite sem perguntar nada para
usuario</DIV>
<DIV> </DIV>
<DIV><FONT size=3 face=Calibri>vc pode colocar opções para extrair apenas os
arquivos que vc deseja extrair: opções –x -C</FONT></DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV>$cmd_msg = qx/$cmd 2>&1/; # captura STDOUT e STDERR</DIV>
<DIV>$cmd_status = $?; # memoriza status de retorno do unzip</DIV>
<DIV> </DIV>
<DIV>if ($cmd_status) {</DIV>
<DIV> ($ok, $sev, $msg) = (0,1,"Erro ao executar '$cmd':
$cmd_status: $cmd_msg");</DIV>
<DIV>
....</DIV>
<DIV>} else {</DIV>
<DIV> navegue por $path_temp_zip para tratar os
arquivos do seu interesse, ja filtrados pelas opções que vc deve adicionar
no $cmd unzip acima </DIV>
<DIV>}</DIV>
<DIV><FONT size=3 face=Calibri></FONT> </DIV>
<DIV
style="BACKGROUND-COLOR: rgb(245,245,245); background-origin: initial; background-clip: initial">
<DIV><B>From:</B><SPAN class=Apple-converted-space> </SPAN><A
title=guedes_1000@hotmail.com
href="mailto:guedes_1000@hotmail.com">Aureliano Guedes</A></DIV>
<DIV><B>Sent:</B><SPAN class=Apple-converted-space> </SPAN>Tuesday, May
29, 2012 8:19 AM</DIV>
<DIV><B>To:</B><SPAN class=Apple-converted-space> </SPAN><A
title=rio-pm@pm.org href="mailto:rio-pm@pm.org">Rio PM</A></DIV>
<DIV><B>Subject:</B><SPAN class=Apple-converted-space> </SPAN>Re:
[Rio-pm] Unzip</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: calibri; COLOR: rgb(0,0,0); FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV dir=ltr>O que tentei fazer foi isso:<BR><BR><A
href="http://pastebin.com/45tHKZur">http://pastebin.com/45tHKZur</A><BR><BR>Mas
ainda não deu certo.<BR><BR><BR>
<DIV>
<DIV id=SkyDrivePlaceholder></DIV>
<HR id=stopSpelling>
Date: Mon, 28 May 2012 23:08:44 -0300<BR>From: <A
href="mailto:ole.ufg@gmail.com">ole.ufg@gmail.com</A><BR>To: <A
href="mailto:rio-pm@pm.org">rio-pm@pm.org</A><BR>Subject: Re: [Rio-pm]
Unzip<BR><BR>Walking through a zipfile, com certeza te providencia o nomes
dos arquivos. Afinal,.a extensão não importante, faz parte do
nome...<BR>0le<BR>Send via Android<BR>
<DIV class=ecxgmail_quote>Em 28/05/2012 22:48, "Aureliano Guedes" <<A
href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</A>>
escreveu:<BR>
<BLOCKQUOTE
style="BORDER-LEFT: rgb(204,204,204) 1px solid; PADDING-LEFT: 1ex"
class=ecxgmail_quote>
<DIV>
<DIV dir=ltr>Ok. Entendo ja li a documentação, inclusive ja pesquisei
codigo pronto ja internet. Mas ainda sim não consegui usa-lo, pois
especificando a extenção do arquivo fica facil, o output saira com a
extenção desejada, mesmo que você coloque *.cmj (casa da mãe
joana).<BR>Minha duvida é, descompactar 800 arquivos *.zip onde o conteudo
pode ser arquivos das mais diversas extenções, as vezes mais de um
arquivo, as vezes uma pasta contendo outros arquivos, acontece que sempre
sai um arquivo vazio como ja falei.<BR><BR>Então, como
fazer?<BR><BR><BR><BR>
<DIV>
<DIV></DIV>> From:<SPAN class=Apple-converted-space> </SPAN><A
href="mailto:gabiruh@gmail.com">gabiruh@gmail.com</A><BR>> Date: Mon,
28 May 2012 22:33:55 -0300<BR>> To:<SPAN
class=Apple-converted-space> </SPAN><A
href="mailto:rio-pm@pm.org">rio-pm@pm.org</A><BR>> Subject: Re:
[Rio-pm] Unzip<BR>><SPAN
class=Apple-converted-space> </SPAN><BR>><SPAN
class=Apple-converted-space> </SPAN><BR>> On May 28, 2012, at
10:18 PM, Aureliano Guedes wrote:<BR>><SPAN
class=Apple-converted-space> </SPAN><BR>> ><SPAN
class=Apple-converted-space> </SPAN><BR>> > Qual seria minh
alternativa??<BR>><SPAN
class=Apple-converted-space> </SPAN><BR>> Ao invés do
IO::Uncompress::Unzip? Hmmm.. que tal o
IO::Uncompress::Unzip?<BR>><SPAN
class=Apple-converted-space> </SPAN><BR>><SPAN
class=Apple-converted-space> </SPAN><A
href="https://metacpan.org/module/IO::Uncompress::Unzip#Walking-through-a-zip-file"
target=_blank>https://metacpan.org/module/IO::Uncompress::Unzip#Walking-through-a-zip-file</A><BR>><SPAN
class=Apple-converted-space> </SPAN><BR>> :D<BR>><SPAN
class=Apple-converted-space> </SPAN><BR>><SPAN
class=Apple-converted-space> </SPAN><BR>><SPAN
class=Apple-converted-space> </SPAN><BR>><SPAN
class=Apple-converted-space> </SPAN><BR>>
_______________________________________________<BR>> Rio-pm mailing
list<BR>><SPAN class=Apple-converted-space> </SPAN><A
href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A><BR>><SPAN
class=Apple-converted-space> </SPAN><A
href="http://mail.pm.org/mailman/listinfo/rio-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/rio-pm</A><BR></DIV></DIV></DIV><BR>_______________________________________________<BR>Rio-pm
mailing list<BR><A href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/rio-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/rio-pm</A><BR></BLOCKQUOTE></DIV><BR>_______________________________________________
Rio-pm mailing list <A href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A> <A
href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</A></DIV></DIV>
<P
style="PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px"></P>
<HR>
_______________________________________________<BR>Rio-pm mailing list<BR><A
href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</A></DIV></DIV></DIV>_______________________________________________<BR>Rio-pm
mailing list<BR><A href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</A></DIV></SPAN></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV></DIV></DIV></DIV></DIV></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV></DIV></DIV></BODY></HTML>