[Rio-pm] Unzip
Aureliano Guedes
guedes_1000 em hotmail.com
Segunda Maio 28 18:18:32 PDT 2012
Boa Noite,
Monges.
Estava tentando fazer um scriptizinho para deszipar uma pasta (em ambiente Windows) com cerca de 800 arquivos *.zip.
Para isso estava tentando usar o IO::Uncompress::Unzip.
O problema é que não tem padrão de arquivo dentro dos zip's, alguns tem arquivos psd, outros jpge, outros tem pastas, etc...
A seguinte rotina, não serve, pois gera arquivos sem extenção (aqueles que ficam em branco), mesmo tentando abrir como txt não tem nada.
#!/usr/bin/env perl
use strict ;
use warnings ;
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
for (1..800){
my $input = $_ . 'zip';
unzip $input => $_
or die "unzip failed: $UnzipError\n";
}
Qual seria minh alternativa??
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120529/c2082f9a/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm