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
