Reader: 1
5 entries, 1 page |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
sub datenexport { my $class = shift; my $zip = Archive::Zip->new(); chdir $var{'uploadpfad'}; my @Dateien; find( sub {push @Dateien, $File::Find::name}, './' ); for(@Dateien) { if (-d) { $zip->addDirectory($_); } else { $zip->addFile($_); } } $zip->writeToFileNamed('test.zip'); }
[HRDoomrunner,11.03.2004, 17:27]Ok,
hab das Problem selbst gelöst.
1
2
3
4
5
6
use Archive::Zip;
my $zip = Archive::Zip->new('test.zip');
# extrahiere Archiv in aktuelles Verzeichnis
$zip->extractTree();
5 entries, 1 page |