Opened by bianca at 2016-01-12 11:32
User since
2009-09-13
7016 Artikel
BenutzerIn
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!
Zum Zwecke des Backups benutze ich
Archive::Zip. Dieses macht aber einen gravierenden Fehler. Und zwar legt es von den gewünschten Verzeichnissen nochmal 0-Byte-Dateien im ZIP an.
Die Original Struktur sieht so aus:
in das ZIP sollen nur verz2 und verz4, das ZIP sieht dann so aus:
Das würde mich ja nicht weiter stören aber es macht das ZIP kaputt. Beim Entpacken des gesamten ZIP bekomme ich Fehler "Fehler beim Schreiben von ...".
Und jetzt kommt das Schlimmste: ich kann den Fehler nicht reproduzieren. Mit gleichem Win 7 64 Bit, gleichem Perl, selber Modulversion, gleichen Verzeichnissen und Dateien bekomme ich den Fehler nur in der Original Umgebung. Woanders nicht.
So sieht der Code aus:
In der Doku lese ich dies hier, weiß aber nicht, worauf sich das bezieht:
Habe verschiedene Konstellationen im zweiten Parameter ausprobiert aber entweder wird dann garnichts geZIPt oder alles liegt im root.
Hat jemand eine Idee, was da falsch laufen könnte?
Zum Zwecke des Backups benutze ich
Archive::Zip. Dieses macht aber einen gravierenden Fehler. Und zwar legt es von den gewünschten Verzeichnissen nochmal 0-Byte-Dateien im ZIP an.Die Original Struktur sieht so aus:
in das ZIP sollen nur verz2 und verz4, das ZIP sieht dann so aus:
Das würde mich ja nicht weiter stören aber es macht das ZIP kaputt. Beim Entpacken des gesamten ZIP bekomme ich Fehler "Fehler beim Schreiben von ...".
Und jetzt kommt das Schlimmste: ich kann den Fehler nicht reproduzieren. Mit gleichem Win 7 64 Bit, gleichem Perl, selber Modulversion, gleichen Verzeichnissen und Dateien bekomme ich den Fehler nur in der Original Umgebung. Woanders nicht.
So sieht der Code aus:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); my @verzeichnisse = ('/root/homepage1/verz2','/root/homepage1/verz4'); my $zip = Archive::Zip->new(); while (scalar @verzeichnisse) { my $verz = shift @verzeichnisse; $zip->addTree($verz,$verz,undef,COMPRESSION_LEVEL_BEST_COMPRESSION); if ($zip->writeToFileNamed('/zielpfad/datei.zip') != AZ_OK) { die "Kann ZIP '/zielpfad/datei.zip' nicht schreiben"; } }
In der Doku lese ich dies hier, weiß aber nicht, worauf sich das bezieht:
QuoteNote that you generally don't want to make zip archive member names absolute.
Habe verschiedene Konstellationen im zweiten Parameter ausprobiert aber entweder wird dann garnichts geZIPt oder alles liegt im root.
Hat jemand eine Idee, was da falsch laufen könnte?
10 print "Hallo"
20 goto 10
20 goto 10