#!c:\Perl\bin\perl.exe use warnings; use Archive::Zip; print "Content-type: text/html\n\n"; print '', "\n";print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n"; print "TEST MODULE ARCHIVE::ZIP\n"; print "\n"; print "\n"; print "      Test 5 zum erzeugen von Zip-Files $filename!\n"; my $log_dest = "c:\\TEMP\\ZIP"; my $zip = Archive::Zip->new(); chdir $log_dest or die "chdir $log_dest: $!"; opendir(DIR,$log_dest) or die "Can´t open the current Directory: $!\n"; my @names = readdir(DIR) or die "unable to read the current dir:$!\n"; foreach my $filename (@names) { if ($filename =~ /.LOG/) { $zip->addFile($fileName); } } my $zip_name = "test.zip"; print "\nZipping Files to $zip_name\n\n"; $zip->writeToFileNamed("$zip_name"); print "\n"; print "\n"; print "\n";