Opened by tk102 at 2020-04-03 11:56
User since
2020-02-20
10 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2020-02-20
10 Artikel
BenutzerIn
Hallo zusammen,
ich bin gerade dabei mich ein wenig mit dem Thema Zippen zu beschäftigen.
Ich wollte gern einfache Text-Files in ein Zip packen.
Dazu habe ich folgendes:
Der Code läuft ohne Fehler durch, das Zip File wird auch erstellt, nur leider befinden sich keine Dateien darin. Ich habe mir schon die Doku dazu angeschaut, nur finde ich den Fehler einfach nicht.
Vielleicht sieht jemand etwas, was ich nicht sehe.
In diesem Sinne bedanke ich mich!
ich bin gerade dabei mich ein wenig mit dem Thema Zippen zu beschäftigen.
Ich wollte gern einfache Text-Files in ein Zip packen.
Dazu habe ich folgendes:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
use strict; use warnings; use Archive::Zip qw(:ERROR_CODES :CONSTANTS); my @SourceFiles = glob('C:/Temp/*.txt'); my $zip = Archive::Zip->new(); foreach my $memberName (@SourceFiles) { print "$memberName\n"; $zip->addFile( $memberName ) or warn "Can't add file $memberName\n"; } unless ( $zip->writeToFileNamed('C:/Temp/Files.zip') == AZ_OK ) { die 'write error'; }
Der Code läuft ohne Fehler durch, das Zip File wird auch erstellt, nur leider befinden sich keine Dateien darin. Ich habe mir schon die Doku dazu angeschaut, nur finde ich den Fehler einfach nicht.
Vielleicht sieht jemand etwas, was ich nicht sehe.
In diesem Sinne bedanke ich mich!