#!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";