1
2
3
4
#!C:\Perl\bin\Perl.exe -w
print "Content-type: text/html\n\n"; #<-- common http header
print "Hello world!\n\n";
1
2
3
HTTP Error 502.2 - Bad Gateway
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are "Can't open perl script "s": No such file or directory ".
2013-02-05T09:42:50 perl-snaksSelbstverständlich habe ich auch diese konfigurationen auf IIS durchgeführt (siehe bitte Link)
1
2
3
4
5
6
7
8
9
10
my $file = "C:/Programme/Apache/cgi-bin";
print "$file\n";
print ">";
print "Your Report is finisched";
print "</a>";
open F, ">$file" #or quit("Unable to open output file for writing: $!");
binmode(F);
print F $response->content;
close F;
2013-02-13T08:44:34 perl-snaksWenn ich den gleichen Skript auf Windows 2008 Server mit IIS ausführe
2013-02-13T09:02:57 perl-snaksKennt jemand das Problem. Vielen Dank
2013-02-13T08:44:34 perl-snaksEs stellt sich die Frage, ob der Windowsnutzer/-gruppe unter dem/der das Skript ausgeführt hat, die Dateirechte zum Ändern des Verzeichnisinhalts hat.Wenn ich den gleichen Skript auf Windows 2008 Server mit IIS ausführe, läuft der Skript ohne fehler aber speichert mir keine Dateien wie beim Windows XP.
QuoteHierbei ein Abschnitt vom Skript.
Code: (dl )1
2
3
4
5
6
7
8
9
10
my $file = "C:/Programme/Apache/cgi-bin";
print "$file\n";
print ">";
print "Your Report is finisched";
print "</a>";
open F, ">$file" #or quit("Unable to open output file for writing: $!");
binmode(F);
print F $response->content;
close F;
Weiss jemand wieso tritt das Problem auf?
1 2 3 4
open F, ">$file" #or quit("Unable to open output file for writing: $!"); binmode(F); print F $response->content; close F;
1 2 3 4 5
my $fh; open ($fh, ">", $file) or warn "Unable to open output file for writing: $!"; binmode($fh); print $fh $response->content or warn "Unable to write to output file: $!"; close $fh or warn "Unable to open output file for writing: $!";
1
2
3
4
5
6
7
8
9
my $file = "C:/Programme/Apache/cgi-bin";
print "$file\n";
print ">";
print "Your Report is finisched";
print "</a>";
open F, ">$file" #or quit("Unable to open output file for writing: $!");
binmode(F);
print F $response->content;
close F;
1
2
3
4
5
6
7
8
9
print "<a href=";
print "$file\n";
print ">";
print "Your Report is finisched";
print "</a>";
open F, ">$file"; #or quit("Unable to open output file for writing: $!");
binmode(F);
print F $response->content;
close F;
1 2 3 4 5 6 7 8 9
open F, '>', $file; binmode(F); print F $response->content; close F; print '<a href="file://'; print $file; print '">'; print 'Your Report is finisched'; print '</a>';