Aureliano++ # Compartilhando a solução.. mesmo que o gabiruh já tenha o feito :)
2012/5/29 Aureliano Guedes <[email protected]>: > 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: [email protected] > Date: Tue, 29 May 2012 18:02:36 -0300 > To: [email protected] > 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 <[email protected]> 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 <[email protected]> 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 <[email protected]> > > 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: [email protected] > Date: Tue, 29 May 2012 16:45:15 -0300 > > To: [email protected] > Subject: Re: [Rio-pm] Unzip > > Fácil! Só usar o Wordpress! > > Em 29 de maio de 2012 16:22, Tiago Peczenyj <[email protected]> > 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 <[email protected]>: >> 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 <[email protected]> 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 <[email protected]> >>>> >>>> Patrulheiros? Isso me lembra o CHIPS >>>> >>>> (29) >>>> Em 29/05/2012 15:29, "Blabos de Blebe" <[email protected]> escreveu: >>>> >>>> >>>> > >>>> > 28 >>>> > >>>> > 2012/5/29 Diana Rosa <[email protected]>: >>>> > > 26o. >>>> > > >>>> > > Em 29 de maio de 2012 15:24, <[email protected]> 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 <[email protected]>: >>>> > >>> >>>> > >>> 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, <[email protected]> wrote: >>>> > >>> >>>> > >>> Mantovani, menos. >>>> > >>> >>>> > >>> Amadureça. >>>> > >>> >>>> > >>> From: Daniel Mantovani >>>> > >>> Sent: Tuesday, May 29, 2012 11:04 AM >>>> > >>> To: [email protected] ; 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, <[email protected]> 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: [email protected] >>>> > >>> To: [email protected] >>>> > >>> 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" <[email protected]> >>>> > >>> 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: [email protected] >>>> > >>>> Date: Mon, 28 May 2012 22:33:55 -0300 >>>> > >>>> To: [email protected] >>>> > >>>> 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 >>>> > >>>> [email protected] >>>> > >>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >>> >>>> > >>> >>>> > >>> _______________________________________________ >>>> > >>> Rio-pm mailing list >>>> > >>> [email protected] >>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >>> >>>> > >>> >>>> > >>> _______________________________________________ Rio-pm mailing >>>> > >>> list >>>> > >>> [email protected] http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >>> >>>> > >>> ________________________________ >>>> > >>> _______________________________________________ >>>> > >>> Rio-pm mailing list >>>> > >>> [email protected] >>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >>> _______________________________________________ >>>> > >>> Rio-pm mailing list >>>> > >>> [email protected] >>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >>> >>>> > >>> >>>> > >>> >>>> > >>> >>>> > >>> >>>> > >>> _______________________________________________ >>>> > >>> Rio-pm mailing list >>>> > >>> [email protected] >>>> > >>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >> >>>> > >> _______________________________________________ >>>> > >> Rio-pm mailing list >>>> > >> [email protected] >>>> > >> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > >> _______________________________________________ >>>> > >> Rio-pm mailing list >>>> > >> [email protected] >>>> > >> http://mail.pm.org/mailman/listinfo/rio-pm >>>> > > >>>> > > >>>> > > >>>> > > _______________________________________________ >>>> > > Rio-pm mailing list >>>> > > [email protected] >>>> > > http://mail.pm.org/mailman/listinfo/rio-pm >>>> > _______________________________________________ >>>> > Rio-pm mailing list >>>> > [email protected] >>>> > http://mail.pm.org/mailman/listinfo/rio-pm >>>> >>>> >>>> _______________________________________________ >>>> Rio-pm mailing list >>>> [email protected] >>>> http://mail.pm.org/mailman/listinfo/rio-pm >>> >>> >>> >>> _______________________________________________ >>> Rio-pm mailing list >>> [email protected] >>> http://mail.pm.org/mailman/listinfo/rio-pm >> >> >> >> _______________________________________________ >> Rio-pm mailing list >> [email protected] >> http://mail.pm.org/mailman/listinfo/rio-pm > > > > -- > Tiago B. Peczenyj > Linux User #405772 > > http://pacman.blog.br > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ Rio-pm mailing list > [email protected] http://mail.pm.org/mailman/listinfo/rio-pm > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ Rio-pm mailing list > [email protected] http://mail.pm.org/mailman/listinfo/rio-pm > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm -- Gabriel Vieira _______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
