2013-02-13T08:44:34 perl-snaks

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.

Quote

Hierbei 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: $!";