als gz pepackte Datei mit hilfe eins Modules entpacken

[Wasser]

Hallo liebe ForumerInnen,

es ist mein Ziel eine mit Gnu-zig gepackte Textdatei, mithilfe eines Perl-Scriptes zu entpacken.
Rechner: win98 mit ActivPerl
Dazu habe ich die folgenden Zwei Fragen:

1. ist es möglich auch gz Archive mit Hilfe von Archive::Zip; zu entpacken?

2. hat einer ein kurzes Beispielscript, das etwas verständlicher ist als das im Modul enthaltene?

Da es sich pro Archiv um nur eine enthaltene Datei handelt, hoffte ich auf eine einfache Lösung.

Über Eure Hilfe würde ich mich sehr freuen, da mir langsam der Kopf raucht.

Gruß Wilm T. Klaas
Alias Wasser

[Cheatah]

Hi,

1. ist es möglich auch gz Archive mit Hilfe von Archive::Zip; zu entpacken?

das habe ich jetzt nicht überprüft; aber bei mir enthält die Doku zu Archive::Tar die vielsagende Beispielzeile '$tar->read("origin.tar.gz",1);' ;-)

Cheatah

[Wasser]

Hi Cheatah,

danke für Deine schnelle Antwort, mein Versuch war folgendes:

#!/bin/perl -w

use Archive::Tar;

my  $tar = Archive::Tar->new();
$tar->read("access.log.16.2.gz",1);

#@tar = splitt(/\n/, $tar);
#foreach $tarline(@tar){

open (FFF, ">>temp.txt");

print FFF $tarline;

print ".";

close (FFF);

}

und scheinbar beginnt er auch richtig das ganze zu entpacken, zumindest läuft (auch auch ohne print?!?) die entpackte logdatei über den Bildschirm, bis dann irgentwann ein "checksum error" kommt.

Kann das an der Dateigröße knapp 800KB (gepackt) über 10MB entpackt liegen? .. Kleinere Dateien funktionieren, aber an die Daten drann komme ich immer noch nicht. Wenn jemand von Euch ein funktionierendes Beispiel hat wäre ich dafür sehr dankbar.

Gruß Wilm T. Klaas
Alias Wasser