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
