<HTML><HEAD><BASE href="x-msg://29/"></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>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; 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">--
<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: ole.ufg@gmail.com<BR>To:
rio-pm@pm.org<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 Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</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>http://mail.pm.org/mailman/listinfo/rio-pm</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></BODY></HTML>