[Rio-pm] Unzip

[Aureliano Guedes]

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>