Wieso fehler geschlossen

[zimmer55]

wolle ein ganz einfaches eingabefeld machen mit text ausgabe

Wie haben sie diese webseite gefunden

#!/usr/bin/perl

use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my $thread = $cgi->param('text');
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr) = localtime(time);
my $CTIME_String = localtime(time);
$Monat+=1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
$Jahr+=1900;
my @NeuerEintrag;
push(@NeuerEintrag, "\n");
push(@NeuerEintrag, "
$text - $Monatstag.$Monat.$Jahr, $Stunden:$Minuten:$Sekunden \n");
push(@NeuerEintrag, "

---

\n");
push(@NeuerEintrag, "
$text\n");
push(@NeuerEintrag, "
\n");
open(DATEI, ">test.htm") die "File not found";
my @Zeilen = ;
close(DATEI);
my @NeueZeilen;
my $Zeile;
foreach $Zeile (@Zeilen) {
if($Zeile =~ //) {
foreach(@NeuerEintrag) {
push(@NeueZeilen,$_);
}
}
else {
push(@NeueZeilen,$Zeile);
}
}
open(DATEI, ">test.htm") die "File not found";
print DATEI @NeueZeilen;
close(DATEI);
print "Content-type: text/html\n";
print 'DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "\n";
print "done.
\n";
print "@NeuerEintrag\n";
print "\n";

bekomme diese Fehlermeldung

File not found at post.pl line 23.

Was mache ich falsch??



Habe jetzt ein gefunden das geht ich möchte aber das der text gespeichert bleibt so das andere besucher der Webseite das auch sehen können bzw. was eintagen können.
Wie mache ich das?

DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">





Wie haben sie diese webseite gefunden


Name:

das post.pl

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, my $Wert) = split(/=/, $Feld);
$Wert =~ tr/+/ /;
$Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Wert =~ s/g;
$Wert =~ s/>/>/g;
$Formular{$Name} = $Wert;
}
print "Content-type: text/html\n\n";
print 'DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "\n";
print "\n";
print "
So: $Formular{AnwenderName}

\n";
print "\n";

so was muss ich ändern damit die texteingabe auch gespeichert bleibt,
Muss ich dann eine txt dateierstellen??

 

[zimmer55]

Kann hier niemand helfen...

hoffe das wrid nicht als doppel post gezählt,
Mfg

 

[MeX]

Habe jetzt ein gefunden das geht ...

das ist ein doppelpost!!
da ich ihn leider uebersehen habe, bleibt ne 30%ige verwarnung aus ... hast nochmal glueck gehabt!! ^^

Kann hier niemand helfen...

das ist ein pushpost, der laenger als 7 tage nach deinem vorpost ist und somit OK geht!!

ceeyaa.mex

 

[zimmer55]

Da hier keiner weiter helfen kann.

Eimal schliessen bitte

Sollte einer doch noch helfen können bitte per pn.

 

[MeX]

hmmm...
falls doch noch jemand ne idee hat, PN an mich und der thread is wieder offen!!

~ C L O S E D ~

ceeyaa.mex