[Rio-pm] Unzip

Terça Maio 29 14:25:21 PDT 2012

Aureliano++ # Compartilhando a solução.. mesmo que o gabiruh já tenha o feito :)

2012/5/29 Aureliano Guedes <guedes_1000 em hotmail.com>:
> Bem... Ficou assim, nada de mais, no final.
>
> #!/usr/bin/env perl
>
> use Archive::Zip;
>
> my @list = <*>;
>
> foreach my $archive (@list){
>     my $zip = Archive::Zip->new($archive);
>     for ($zip->members){
>         $zip->extractMember($_->{fileName})
>     }
> }
>
> ________________________________
> From: danillo012 em gmail.com
> Date: Tue, 29 May 2012 18:02:36 -0300
> To: rio-pm em pm.org
> Subject: Re: [Rio-pm] Unzip
>
> Pode ser 1 fim de semana, 1 semana, 1 mês, 1 ano se você quiser, quanto mais
> melhor(sem pirar), o importante é só saber filtrar o que lê por ai, porque
> tem muita gente escrevendo bobeira sobre Perl em sites e fóruns por ai a
> fora.
>
> E como o Gustavo falou, PHP não é o problema, os programadores lambões que
> usam o PHP sim, mas isso tem em qualquer linguagem. Boa sorte na maratona de
> Perl ai, continue empenhado, e qualquer dificuldade estamos aqui ;)
>
>
>
> Em 29 de maio de 2012 17:56, Gustavo Henrique <filesgh em gmail.com> escreveu:
>
> Puxa.. rs
> Parabéns pelo empenho. Só peço que não fique melindrado com nada. Nem mesmo
> com a "má fama" do PHP pois quem faz a porcaria é o porco, não o chiqueiro.
> Fazer um código apresentável e seguro no PHP é tão fácil quando fazer cagada
> em Perl, Python, Java e dotNet.
> Aprenda sim, o máximo que puder, nas linguagens que se sentir a vontade no
> inicio.
>
>
>
> Em 29 de maio de 2012 17:52, Samir Cury <rimasy em gmail.com> escreveu:
>
> Aureliano, se isso ajuda a te inspirar :
>
>
> http://imgs.xkcd.com/comics/11th_grade.png
>
> Li essa tirinha em 2006, me inspirei pra tirar um fds so eu e a maquina.
> Hoje em dia olho pra tras e falo - mais verdade impossivel.
>
> O que adiciono a ela e -- mais que 10^6 desafios, mais vale primeiro um
> problema real,  depois os desafios pra agucar a mente.
>
> Abs
>
> 2012/5/29 Aureliano Guedes <guedes_1000 em hotmail.com>
>
> Gabriel, obrigado pela ajuda, o seu codigo me ajudou. Em breve posto como
> ficou. AOS QUE TENTARAM ME AJUDAR OBRIGADO.
>
> Bem, eu sou novo tanto na lista quanto em Perl, programo a menos de 1 ano e
> iniciei com perl, apesar de estar brincando um pouco com C e Python agora,
> mas Perl é a menina dos meus olhos.
> Mas não sou programador, nem faço um curso ligado a isso, mas eu gosto de
> programar e muito, infelizmente me falta tempo para aprender mais.
> Sim eu li a documentação do IO::Uncompress::Unzip e do Archive::Zip, mas não
> entendi muito, depois procurei insessantemente por codigos prontos, pois eu
> aprendo vendo a logica de outros codigos, mas sou burro e não entendi,
> apenas aprendi a lista os arquivos dentro de um *.zip com o Archive::Zip e
> extrair um a um com o IO:Uncompress::Unzip, por isso vim pedir ajuda, mas me
> senti mal agora de ver tanta briga.
>
> No mais, não vou perder meu tempo com PHP, eu sou persistente, um dia eu
> aprendo, mas no meu caso não tenho tanta base quanto a maioria, afinal não
> tive Algoritimo nem Logica nem Logica de programação, nem nada disso, nem
> mesmo portugues.
>
> ________________________________
> From: leonardo.balter em gmail.com
> Date: Tue, 29 May 2012 16:45:15 -0300
>
> To: rio-pm em pm.org
> Subject: Re: [Rio-pm] Unzip
>
> Fácil! Só usar o Wordpress!
>
> Em 29 de maio de 2012 16:22, Tiago Peczenyj <tiago.peczenyj em gmail.com>
> escreveu:
>
> nivel "dado o codigo abaixo""
> <?php echo "hello world"; ?>
>
> como eu faço para acessar um banco de dados e processar compras
> através de paypal, pagamento digital e geração de boleto em pdf com
> login pelo facebook?
>
> 2012/5/29 Leo Balter <leonardo.balter em gmail.com>:
>> Essa lista é uma das mais tranquilas que já vi, quer guerra procura a PHP
>> Brasil ou jQuery Br.
>>
>> Lá chovem perguntas indecisas e indecentes.
>>
>> Em 29 de maio de 2012 15:44, Samir Cury <rimasy em gmail.com> escreveu:
>>
>>> (30)
>>>
>>> Galera, pro nosso amigo novato, nao desiste nao cara, tem MUITO mais
>>> e-mail tecnico que de xingamento (existem mas meio raros), alias, nao
>>> preciso dizer mais nada, so procura essa thread aqui, bem recente :
>>>
>>> "[Rio-pm] Cliente SMTP em Pure Perl (was Ajuda com configuração do CPAN)"
>>>
>>> Entao alem de responder num bom nivel tecnico, a galera aqui ainda poe
>>> algumas perguntas "banais" no trampolim e sobe bastante o nivel.
>>>
>>> Flame tem em todo o canto, ate na SL-RJ, pythonrio, ArduInRio, etc etc
>>> etc, a pergunta e se o que nao e flame vale a pena estar na lista =)
>>>
>>> Abs,
>>> Samir
>>>
>>>
>>>
>>> 2012/5/29 Alexei Znamensky <russoz em gmail.com>
>>>>
>>>> Patrulheiros? Isso me lembra o CHIPS
>>>>
>>>> (29)
>>>> Em 29/05/2012 15:29, "Blabos de Blebe" <blabos em gmail.com> escreveu:
>>>>
>>>>
>>>> >
>>>> > 28
>>>> >
>>>> > 2012/5/29 Diana Rosa <diana.g.a.rosa em gmail.com>:
>>>> > > 26o.
>>>> > >
>>>> > > Em 29 de maio de 2012 15:24, <ulisses em ibiz.com.br> escreveu:
>>>> > >
>>>> > >> quem deixou de ler que o email que postei começou assim? "jeito
>>>> > >> ‘dirty’
>>>> > >> que funciona...."
>>>> > >>
>>>> > >> não foi dito que é a melhor maneira; é uma que funciona para quem
>>>> > >> estava
>>>> > >> tendo dificuldades com outro módulo; a sugestão não usa módulos e é
>>>> > >> rápida.
>>>> > >>
>>>> > >> cada um usa como quiser, nem sempre é preciso um tratado com banca
>>>> > >> examinadora escrutinadora.
>>>> > >>
>>>> > >> patrulheiros, menos.
>>>> > >>
>>>> > >>
>>>> > >> -----Mensagem Original----- From: Blabos de Blebe
>>>> > >> Sent: Tuesday, May 29, 2012 3:15 PM
>>>> > >> To: Perl Mongers Rio de Janeiro
>>>> > >>
>>>> > >> Subject: Re: [Rio-pm] Unzip
>>>> > >>
>>>> > >>> Você usa Perl como se tivesse usando papel higiênico, e eu preciso
>>>> > >>> amadurecer
>>>> > >>
>>>> > >>
>>>> > >> Ué cara, cada um tem o direito de passar o que quiser na própria
>>>> > >> bunda.
>>>> > >> A gente tá aqui é pra dizer que não é pra enfiar na nossa cara
>>>> > >> depois.
>>>> > >>
>>>> > >> 2012/5/29 Daniel Mantovani <daniel.oliveira.mantovani em gmail.com>:
>>>> > >>>
>>>> > >>> Você usa Perl como se tivesse usando papel higiênico, e eu preciso
>>>> > >>> amadurecer. Da para perceber o quão maduro você é.
>>>> > >>> Para de se achar, e aprende alguma coisa.
>>>> > >>>
>>>> > >>> []'s
>>>> > >>> --
>>>> > >>> Software Engineer
>>>> > >>> Just Another Perl Hacker
>>>> > >>> Daniel Mantovani +5511 8538-9897
>>>> > >>> XOXO
>>>> > >>>
>>>> > >>> On May 29, 2012, at 11:47 AM, <ulisses em ibiz.com.br> wrote:
>>>> > >>>
>>>> > >>> Mantovani, menos.
>>>> > >>>
>>>> > >>> Amadureça.
>>>> > >>>
>>>> > >>> From: Daniel Mantovani
>>>> > >>> Sent: Tuesday, May 29, 2012 11:04 AM
>>>> > >>> To: ulisses em ibiz.com.br ; Perl Mongers Rio de Janeiro
>>>> > >>> Subject: Re: [Rio-pm] Unzip
>>>> > >>>
>>>> > >>> Ulisses,
>>>> > >>>
>>>> > >>> Se for para fazer porcaria, use Shell Script.
>>>> > >>>
>>>> > >>> --
>>>> > >>> Software Engineer
>>>> > >>> Just Another Perl Hacker
>>>> > >>> Daniel Mantovani +5511 8538-9897
>>>> > >>> XOXO
>>>> > >>>
>>>> > >>> On May 29, 2012, at 10:14 AM, <ulisses em ibiz.com.br> wrote:
>>>> > >>>
>>>> > >>> jeito ‘dirty’ que funciona em Linux e MS$ |(se vc baixar o unzip
>>>> > >>> for
>>>> > >>> windows
>>>> > >>> na máquina).
>>>> > >>>
>>>> > >>> se vc puder dar um exec no comando unzip, sugiro
>>>> > >>>
>>>> > >>> $cmd = "unzip -o \"$in\" -d $path_temp_zip"; # unzipa $in no
>>>> > >>> subdir
>>>> > >>> temporario, adicao de -o para overwrite sem perguntar nada para
>>>> > >>> usuario
>>>> > >>>
>>>> > >>> vc pode colocar opções para extrair apenas os arquivos que vc
>>>> > >>> deseja
>>>> > >>> extrair: opções –x -C
>>>> > >>>
>>>> > >>> $cmd_msg = qx/$cmd 2>&1/; # captura STDOUT e STDERR
>>>> > >>> $cmd_status = $?; # memoriza status de retorno do unzip
>>>> > >>>
>>>> > >>> if ($cmd_status) {
>>>> > >>>    ($ok, $sev, $msg) = (0,1,"Erro ao executar '$cmd': $cmd_status:
>>>> > >>> $cmd_msg");
>>>> > >>>            ....
>>>> > >>> } else {
>>>> > >>>   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
>>>> > >>> }
>>>> > >>>
>>>> > >>> From: Aureliano Guedes
>>>> > >>> Sent: Tuesday, May 29, 2012 8:19 AM
>>>> > >>> To: Rio PM
>>>> > >>> Subject: Re: [Rio-pm] Unzip
>>>> > >>>
>>>> > >>> O que tentei fazer foi isso:
>>>> > >>>
>>>> > >>> http://pastebin.com/45tHKZur
>>>> > >>>
>>>> > >>> Mas ainda não deu certo.
>>>> > >>>
>>>> > >>>
>>>> > >>> ________________________________
>>>> > >>> Date: Mon, 28 May 2012 23:08:44 -0300
>>>> > >>> From: ole.ufg em gmail.com
>>>> > >>> To: rio-pm em pm.org
>>>> > >>> Subject: Re: [Rio-pm] Unzip
>>>> > >>>
>>>> > >>> Walking through a zipfile, com certeza te providencia o nomes dos
>>>> > >>> arquivos.
>>>> > >>> Afinal,.a extensão não importante, faz parte do nome...
>>>> > >>> 0le
>>>> > >>> Send via Android
>>>> > >>> Em 28/05/2012 22:48, "Aureliano Guedes" <guedes_1000 em hotmail.com>
>>>> > >>> escreveu:
>>>> > >>>
>>>> > >>> 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).
>>>> > >>> 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.
>>>> > >>>
>>>> > >>> Então, como fazer?
>>>> > >>>
>>>> > >>>
>>>> > >>>
>>>> > >>>> From: gabiruh em gmail.com
>>>> > >>>> Date: Mon, 28 May 2012 22:33:55 -0300
>>>> > >>>> To: rio-pm em pm.org
>>>> > >>>> Subject: Re: [Rio-pm] Unzip
>>>> > >>>>
>>>> > >>>>
>>>> > >>>> On May 28, 2012, at 10:18 PM, Aureliano Guedes wrote:
>>>> > >>>>
>>>> > >>>> >
>>>> > >>>> > Qual seria minh alternativa??
>>>> > >>>>
>>>> > >>>> Ao invés do IO::Uncompress::Unzip? Hmmm.. que tal o
>>>> > >>>> IO::Uncompress::Unzip?
>>>> > >>>>
>>>> > >>>>
>>>> > >>>>
>>>> > >>>>
>>>> > >>>> https://metacpan.org/module/IO::Uncompress::Unzip#Walking-through-a-zip-file
>>>> > >>>>
>>>> > >>>> :D
>>>> > >>>>
>>>> > >>>>
>>>> > >>>>
>>>> > >>>>
>>>> > >>>> _______________________________________________
>>>> > >>>> Rio-pm mailing list
>>>> > >>>> Rio-pm em pm.org
>>>> > >>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>>
>>>> > >>>
>>>> > >>> _______________________________________________
>>>> > >>> Rio-pm mailing list
>>>> > >>> Rio-pm em pm.org
>>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>>
>>>> > >>>
>>>> > >>> _______________________________________________ Rio-pm mailing
>>>> > >>> list
>>>> > >>> Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>>
>>>> > >>> ________________________________
>>>> > >>> _______________________________________________
>>>> > >>> Rio-pm mailing list
>>>> > >>> Rio-pm em pm.org
>>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>> _______________________________________________
>>>> > >>> Rio-pm mailing list
>>>> > >>> Rio-pm em pm.org
>>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>>
>>>> > >>>
>>>> > >>>
>>>> > >>>
>>>> > >>>
>>>> > >>> _______________________________________________
>>>> > >>> Rio-pm mailing list
>>>> > >>> Rio-pm em pm.org
>>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >>
>>>> > >> _______________________________________________
>>>> > >> Rio-pm mailing list
>>>> > >> Rio-pm em pm.org
>>>> > >> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >> _______________________________________________
>>>> > >> Rio-pm mailing list
>>>> > >> Rio-pm em pm.org
>>>> > >> http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > >
>>>> > >
>>>> > >
>>>> > > _______________________________________________
>>>> > > Rio-pm mailing list
>>>> > > Rio-pm em pm.org
>>>> > > http://mail.pm.org/mailman/listinfo/rio-pm
>>>> > _______________________________________________
>>>> > Rio-pm mailing list
>>>> > Rio-pm em pm.org
>>>> > http://mail.pm.org/mailman/listinfo/rio-pm
>>>>
>>>>
>>>> _______________________________________________
>>>> Rio-pm mailing list
>>>> Rio-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>>>
>>>
>>> _______________________________________________
>>> Rio-pm mailing list
>>> Rio-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>>
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> --
> Tiago B. Peczenyj
> Linux User #405772
>
> http://pacman.blog.br
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> _______________________________________________ Rio-pm mailing list
> Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> _______________________________________________ Rio-pm mailing list
> Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm

-- 
Gabriel Vieira