potize s Archive::Zip

[Michal Jurosz]

Dobry den.

   Nasledujici kod rozbali soubory z adresare $zip_path do adresare 
$extr_path, pokud odkomentujete tri zakomentovane radky, pak takto 
upraveny kod rozbali soubory z adresare $zip_path do adresare './'.
Pouzivam ActivePerl pod w2k. Vi nekdo proc se to tak chova? Jak mohou 
souviset promenne $aa a $bb s ostatnim kusem programu, ve kterem nejsou 
jiz dale pouzity?

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
mj na korab.cz ICQ#:93348414
    http://oceany.cz/mj
-------------------------

-- 
S pozdravem Michal Jurosz
mj na korab.cz ICQ#:93348414
    http://oceany.cz/mj
-------------------------