PERL und Zip

PERL und Zip (5 Beiträge, 48 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi

hab das zusammengeschustert nur irgendwie tut der garnichts.
Aufgabe: massig zip-files in dem ordner etpacken und dann die zip's löschen so das nur mehr die enpackten files vorhanden sind.

$filelist = new File::List("c:/temp") or die "net da";
@files = @{ $filelist->find("\.zip\$") };
$zip = Archive::Zip->new();
$zipName = shift(@files);
$status = $zip->read( $zipName );
die "Read of $zipName failed\n" if $status != AZ_OK;
$zip->extractTree();

hat wer ne idee.

danke
mfg
Madler
-----------------------------------------------------------------------------------
i only do what the voices in my head tell me to do

Re: PERL und Zip (alexk am 30.06.2003, 14:17:24)

Re(2): PERL und Zip (Madler am 30.06.2003, 14:25:03)

Re: PERL und Zip (Robe am 30.06.2003, 17:16:12)

Re(2): PERL und Zip (Madler am 01.07.2003, 13:33:39)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung