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??
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
