<HTML><HEAD>
<STYLE><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></STYLE>
</HEAD>
<BODY dir=ltr class=hmmessage>
<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>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: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=guedes_1000@hotmail.com
href="mailto:guedes_1000@hotmail.com">Aureliano Guedes</A> </DIV>
<DIV><B>Sent:</B> Tuesday, May 29, 2012 8:19 AM</DIV>
<DIV><B>To:</B> <A title=rio-pm@pm.org href="mailto:rio-pm@pm.org">Rio PM</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 dir=ltr>O que tentei fazer foi
isso:<BR><BR>http://pastebin.com/45tHKZur<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: #ccc 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: <A
href="mailto:gabiruh@gmail.com">gabiruh@gmail.com</A><BR>> Date: Mon, 28
May 2012 22:33:55 -0300<BR>> To: <A
href="mailto:rio-pm@pm.org">rio-pm@pm.org</A><BR>> Subject: Re: [Rio-pm]
Unzip<BR>> <BR>> <BR>> On May 28, 2012, at 10:18 PM, Aureliano Guedes
wrote:<BR>> <BR>> > <BR>> > Qual seria minh
alternativa??<BR>> <BR>> Ao invés do IO::Uncompress::Unzip? Hmmm.. que
tal o IO::Uncompress::Unzip?<BR>> <BR>> <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>>
<BR>> :D<BR>> <BR>> <BR>> <BR>> <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></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>
<HR>
_______________________________________________<BR>Rio-pm mailing
list<BR>Rio-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/rio-pm</DIV></DIV></DIV></BODY></HTML>