open (DATEI2, ">/homepages/18/d23090695/htdocs/eintrag.html") || die "Datei nicht gefunden!"; print DATEI2 @NeueZeilen; close(DATEI2); @NeueZeilen enthält ein Konstrukt der Eingaben, das dürft so auch stimmen. Aber er tut halt beim schreiben einfach nur...NICHTS! Die Datei bleibt leer. Am besten ich geb den ganzen Quelltext des Scripts her: #! /usr/bin/perl use CGI; my $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser); my @NeuerEintrag; push(@NeuerEintrag, "<;!-- Eintrag [".$cgi->param($username)."] -->;\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "

Name:	".$cgi->param($Username)."
".$cgi->param($Usertext)."

\n"); open(DATEI, "; close(DATEI); my @NeueZeilen; my $Zeile; foreach $Zeile (@Zeilen) { if(/^<;!-- NEU -->;/) { foreach(@NeuerEintrag) { push(@NeueZeilen,$_); } push(@NeueZeilen,"<;!-- NEU -->;\n"); } else { push(@NeueZeilen,$Zeile); } } open(DATEI2, ">/absoluterpfad/eintrag.html") || die "Datei nicht gefunden!"; print DATEI2 @NeueZeilen; close(DATEI2); print "Content type: text/html\n\n"; print "Erfolgreich";