Thread Archiv::Zip entpacken?
(4 answers)
Opened by [HR]Doomrunner at 2004-03-11 17:38
Hi,
ich habe mit Hilfe des Moduls Archiv::Zip eine Zip Datei gepackt. Hier der Quellcode dafür: Code (perl): (dl
)
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'); } Jetzt habe ich aber keine Ahnung, wie ich die Daten wieder entpackt bekomme. Aus der Doku zum Modul werde ich einfach nicht schlau. Kann mir da vielleicht einer helfen? :D |