Hier das beispiel:
sub check_log {
$logfile = "/home/guestbook/contlog.txt";
open(LOG,"+<$logfile") || &dead;
flock(LOG,LOCK_EX);
while (<LOG>){
&dead if /$FORM{'username'}/;
}
seek (LOG, 0, 2);
print LOG "$FORM{'username'}\n";
close (LOG) || &dead;
}sub dead {
print "Content-type: text/html\n\n";
print "<center>Error: hello,you have already an entry in our guestbook\n";
print "<hr width='100%'></center>\n";
exit;
}
Wo hast du das denn her?
kein strict, kein CGI.pm, veraltete Schreibweise für Funktionsaufrufe und darüber hinaus wird hier die Datei zum lesen und schreiben geöffnet, dabei würde ein schreibendes öffnen und anhängen reichen (open LOG, ">$logfile")
Naja, und das deine Fehlerausgabe nicht unbedingt stimmt hat dir ja schon Siechfred erklärt.
Struppi.