Thread Archive::Extract -> Entpacken aus, in Ordner (14 answers)
Opened by LukeStriker at 2010-05-05 16:37

LukeStriker
 2010-05-06 12:10
#136871 #136871
User since
2010-04-21
69 Artikel
BenutzerIn
[default_avatar]
Ich brauch nochmal Hilfe... Würde gerne alle Dateien die ich entpackt habe in ein Array speichern(um sie nochmals zu durchsuchen ob in den entpackten Files noch zip Dateien sind)
Code (perl): (dl )
1
2
3
4
5
6
7
8

foreach $zipfile (@zipdata) {
        $zipfile2= "./LOG/$zipfile";
        my $zd = Archive::Extract->new(archive => $zipfile2);
        my $ok = $zd->extract( to => './LOG') || die $zd->error;
@file=File::Spec->catfile( $to, $zd->files->[0] );
        print @file;
}       
exit;

In @file wird allerdings immer nur der Name der letzten Datei gespeichert, hab jetzt schon ein paar Schleifen versucht - klappt aber alles nicht...

Hat jemand eine Idee?

View full thread Archive::Extract -> Entpacken aus, in Ordner