Opened by Gast at 2004-03-25 11:38
Also wenn Rambos Skript geht... dann müsste es doch auch bei mir laufen.
Geht aber nicht!!
Die zip sollte doch hier in c:\temp\ geschrieben werden, oder??
Irgendwas fehlt mir noch...
Also ich führe das Skript Modultest5.pl auf Winxp mit IE5.5 aus. Wenn er das Modul nicht finden würde , gebe es doch nen Servererror im IE...
Noch andere Ideen??
Brauch ich da noch Makefile oder so was ???
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!c:\Perl\bin\perl.exe
use warnings;
use Archive::Zip;
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";print "<html>\n";
print "\n\n";
print "<html>\n";
print "\n";
print "<head>\n";
print "<title>TEST MODULE ARCHIVE::ZIP</title>\n";
print "</head>\n";
print "<body aLink=\"\#000000\" bgColor=\"\#F0F2FF\" bottomMargin=\"0\" leftMargin=\"0\" link=\"\#000000\"\n";
print "rightMargin=\"0\">\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 "</body>\n";
print "</html>\n";
Geht aber nicht!!
Die zip sollte doch hier in c:\temp\ geschrieben werden, oder??
Irgendwas fehlt mir noch...
Also ich führe das Skript Modultest5.pl auf Winxp mit IE5.5 aus. Wenn er das Modul nicht finden würde , gebe es doch nen Servererror im IE...
Noch andere Ideen??
Brauch ich da noch Makefile oder so was ???