<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Boa Noite,<br>Monges.<br><br>Estava tentando fazer um scriptizinho para deszipar uma pasta (em ambiente Windows) com cerca de 800 arquivos *.zip.<br>Para isso estava tentando usar o IO::Uncompress::Unzip.<br><br>O problema é que não tem padrão de arquivo dentro dos zip's, alguns tem arquivos psd, outros jpge, outros tem pastas, etc...<br><br>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.<br><br>#!/usr/bin/env perl<br><br>use strict ;<br>use warnings ;<br>use IO::Uncompress::Unzip qw(unzip $UnzipError) ;<br><br>for (1..800){<br><br>my $input = $_ . 'zip';<br><br>unzip $input => $_<br> or die "unzip failed: $UnzipError\n";<br>}<br><br><br>Qual seria minh alternativa??<br> </div></body>
</html>