Hello.
This code unzip files from $zip_path to $extr_path, but when you
uncomment, tree lines below, then this code unzip files from $zip_path
to './'. Where is a bug?
Sorry, but my english is so bad.
-----------------------
use warnings;
use strict;
use locale;
use Archive::Zip::Tree;
use Archive::Zip qw(:ERROR_CODES);
my $zip_path = './fnav-zip/';
my $extr_path = './fnav-extr/';
foreach my $file (glob($zip_path."*.zip")) {
my $zip = Archive::Zip->new();
# my $bb = $zip_path;
# my $aa = $zip_path;
# $aa =~ /\Q$bb\E/;
$zip->read($file);
$zip->extractTree('', "$extr_path");
}
--
S pozdravem Michal Jurosz
[EMAIL PROTECTED] ICQ#:93348414
http://oceany.cz/mj
-------------------------
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
