nicht angemeldet
Perl/CGI Upload Problem
HALLO
Wenn ich eine Datei auf meinen Apache Server hochladen will erscheint folgende Fehlermeldung:
Can't find string terminator "HTML" anywhere before EOF at C:/Programme/Apache2/cgi-bin/upload.pl line 28., referer: http://localhost/
hier noch das perl script
#!C:/Programme/Perl/bin/perl.exe -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI; # Modul fuer CGI-Programme
my $cgi = new CGI; # neues Objekt erstellen
Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
die datei-daten holen
my $file = $cgi->param("myfile");
dateinamen erstellen und die datei auf dem server speichern
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDR}.'_'.time;
open DAT,'>'.$fname or die 'Error processing file: ',$!;
Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
print DAT $data;
}
close DAT;
print <<"HTML";
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>
<p>
Die Datei $file wurde erfolgreich auf dem Server
gespeichert.
</p>
</body>
</html>
HTML
Bitte schaut doch , wo der Fehler liegt
Danke
mfg Jürgen
-
hallo,
Can't find string terminator "HTML" anywhere before EOF
Dein Script sieht auf den ersten Blick korrekt aus. Du hast natürlich auch den Hinweis aus SELFHTML beachtet: "Hinter dem Endbegrenzer muss auf jeden Fall ein Zeilenumbruch notiert werden, gerade auch dann, wenn es sich um die letzte Zeile im Script handelt."
Grüße aus Berlin
Christoph S.
-
hallo
Christoph S.
danke für den Tipp
das Script geht jetzt
-