Archive::Zip legt Verzeichnisse nochmal als 0-Byte-Dateien an (gelöst) (Fragen zu Perl-Modulen)

[thread]19951[/thread]

Archive::Zip legt Verzeichnisse nochmal als 0-Byte-Dateien an [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+8 replies

bianca

2016-01-12 11:32

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Guten Morgen!
Zum Zwecke des Backups benutze ich CPAN:

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:

Code: (dl )

root
	|
	homepage1
		|
		verz1
		verz2
		verz3
		vers4
		usw.

in das ZIP sollen nur verz2 und verz4, das ZIP sieht dann so aus:

Code: (dl )

root
	|
	homepage1
		|
		verz2
		verz4
		Datei "verz2"	0 Byte
		Datei "verz4"	0 Byte

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 )

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:

Quote
Note 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

+6 replies
Raubtier

2016-01-12 12:02

User since
2012-05-04
1075 Artikel
BenutzerIn

2016-01-12T10:32:45 bianca
In der Doku lese ich dies hier, weiß aber nicht, worauf sich das bezieht:

Quote
Note that you generally don't want to make zip archive member names absolute.

Das heißt, dass der 2. Parameter von addTree nicht mit einem Slash anfangen soll (nicht absolut sein soll). Spricht etwas dagegen, einfach einen Leerstring zu übergeben?
- +5 replies
- bianca
  
  2016-01-12 12:38
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  2016-01-12T11:02:39 Raubtier
  Spricht etwas dagegen, einfach einen Leerstring zu übergeben?
  
  Ja, schau:
  Original:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  D:. └───homepage1 ├───verz1 │ │ abc.txt │ │ def.txt │ │ │ └───unterverz11 ├───verz2 │ │ ghi.txt │ │ jkl.txt │ │ │ └───unterverz21 ├───verz3 │ │ mno.txt │ │ pqr.txt │ │ │ └───unterverz31 ├───verz4 │ │ stu.txt │ │ vwx.txt │ │ │ └───unterverz41 └───zipziel zip.zip
  
  Ergebnis im ZIP siehe Bild im Attachment.
  Anhänge
  
  image/png
  291 x 158
  
  archive_zip_1.png
  
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Raubtier
    
    2016-01-12 14:40
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Wäre es denn das richtige, wenn du nur den führenden Slash wegnehmen würdest?
    
    Also sowas wie:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $verz = shift @verzeichnisse; my $ohneShash = $verz; $ohneSlash =~ s#^/##; $zip->addTree($verz,$ohneSlash,undef,COMPRESSION_LEVEL_BEST_COMPRESSION);
    - +3 replies
    - bianca
      
      2016-01-12 15:48
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Interessanterweise kann ich jetzt im Testgebiet auch den Fehler mit den 0-Byte Dateien reproduzieren. Und zwar ging das ab dem ersten mal wo ich mit Zeile $Archive::Zip::UNICODE = 1; teste. Inzwischen kommen die 0-Byte-Dateien nun immer, egal ob mit oder ohne dieser Zeile.
      
      Dein Vorschlag sieht also jetzt inklusive des urspr. Fehlers so aus.
      Code:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      #!/usr/bin/perl use strict; use warnings; use Archive::Zip qw(:ERROR_CODES :CONSTANTS); if ($^O =~ /mswin/i) { $Archive::Zip::UNICODE = 1; } my @verzeichnisse = ('/webserver/homepage1/verz2','/webserver/homepage1/verz4'); my $zip = Archive::Zip->new(); while (scalar @verzeichnisse) { my $verz = shift @verzeichnisse; $zip->addTree($verz,substr($verz,1),undef,COMPRESSION_LEVEL_BEST_COMPRESSION); if ($zip->writeToFileNamed("/webserver/homepage1/zipziel/zip.zip") != AZ_OK) { die "Kann ZIP '/webserver/homepage1/zipziel' nicht schreiben"; } }
      
      Struktur (unverändert):
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
      
      └───homepage1 ├───verz1 │ │ abc.txt │ │ def.txt │ │ │ └───unterverz11 ├───verz2 │ │ ghi.txt │ │ jkl.txt │ │ │ └───unterverz21 ├───verz3 │ │ mno.txt │ │ pqr.txt │ │ │ └───unterverz31 ├───verz4 │ │ stu.txt │ │ vwx.txt │ │ │ └───unterverz41 └───zipziel zip.zip
      
      Ergebnis siehe 3 Screens anbei.
      Anhänge
      
      image/png
      449 x 132
      
      archive_zip_2.png
      
      image/png
      477 x 114
      
      archive_zip_3.png
      
      image/png
      471 x 114
      
      archive_zip_4.png
      
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Linuxer
        
        2016-01-12 16:38
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Schon mal in die Perldoc geschaut? Du spielst da mit einem experimentellen und noch fehlerträchtigen Feature rum!
        
        perldoc Archive::Zip
        ...
        
        $Archive::Zip::UNICODE
        
        This variable governs how unicode file and directory names are added to or extracted from an archive. If set, file and directory names are considered to be UTF-8 encoded. This is EXPERIMENTAL AND BUGGY (there are some edge cases on Win32). Please report problems.
        
        Code: (dl )
        
        1 2 3 4
        
        { local $Archive::Zip::UNICODE = 1; $zip->addFile('Déjà vu.txt'); }
        
        (Fettdruck von mir)
        
        Wenn Du das ernsthaft nutzen willst, solltest Du mit dem Modul-Verantwortlichen in Kontakt treten und mit dem diskutieren.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        bianca
        
        2016-01-12 17:06
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, den experimentellen Status kenne ich. Aber an anderer Stelle nutze ich den Parameter schon länger und hab keine Probleme damit. Ich hätte auch jetzt keine Verbindung zu diesem Fehler vermutet.
        OK, dann schreib ich dem Autor mal eine E-Mail.Danke dir
        
        P.S.: Hat evtl. jemand eine Empfehlung für ein anderes Modul?
        10 print "Hallo"
        20 goto 10

bianca

2016-01-13 12:43

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Ich hab es gelöst. Und zwar einfach nicht ->addTree() nutzen sondern selbst iterieren und mit ->addFile() adden:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
if ($^O =~ /mswin/i) { $Archive::Zip::UNICODE = 1; }
my $add_verzeichnisse = 0;  # 0=selbst iterieren  1=->addTree() verwenden

my @verzeichnisse = ('/webserver/homepage1/verz2','/webserver/homepage1/verz4');
my $zip = Archive::Zip->new();
while (scalar @verzeichnisse) {
    my $verz = shift @verzeichnisse;
    if ($add_verzeichnisse) {
        $zip->addTree($verz,substr($verz,1),undef,COMPRESSION_LEVEL_BEST_COMPRESSION);
    }
    else {
        if (opendir(my $fh,$verz)) {
            foreach my $file (readdir $fh) {
                next if $file eq '.' || $file eq '..';
                if (-d "$verz/$file") {
                    push @verzeichnisse,"$verz/$file";
                    say "neues Verzeichnis '$verz/$file'";
                }
                else {
                    if (open(my $t,'<',"$verz/$file")) {
                        close($t);
                        my $file_member = $zip->addFile({
                            filename            => "$verz/$file",
                            compressionLevel    => COMPRESSION_LEVEL_BEST_COMPRESSION,
                        });
                        say "adde '$verz/$file'";
                    }
                    else { say "$verz/$file nicht lesbar" }
                }
            }
        }
    }
}
if ($zip->writeToFileNamed("/webserver/homepage1/zipziel/zip.zip") != AZ_OK) {
    die "Kann ZIP '/webserver/homepage1/zipziel' nicht schreiben";
}

Mal schauen, ob Fred Moyer sich trotzdem noch meldet. Aber ich hab zumindest mal eine lauffähige Lösung.
Danke allen Mitdenkern!

10 print "Hallo"
20 goto 10

View all threads created 2016-01-12 11:32.