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:
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!
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
+5 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
