Textbox: Text eintragen und speichern

[brick top]

Hallo Welt, Hallo Narrator

Hat sowas schon mal jemand probiert zu programmieren?:
Innerhalb der Homepage befindet sich ein Textfeld zum offenen Eintragen ohne Login und Passwort. Jeder der will, kann dort Text eintragen (mind. 1 Zeichen) und speichern.
Der Text bleibt bestehen. Jeder kann ihn erweitern... So entsteht z.B. eine Geschichte


Ich habe leider keine Ahnung wie man sowas macht?

gruß, brick top

 

[prince mo]

Hi brick top,

wie fit bist Du denn in perl?

also hier mal der code

du brauchst eine datei z.b endlos_text.txt

wenn du schreiben willst musst du das script dann folgendermaßne aufrufen:
script.pl?act=1

if($in{'act'} == 1)  { &datei_schreiben; }

my $flat_db = 'pfad_zu_deiner_txt_datei.txt';

# schreiben
sub datei_schreiben {
open(ETXR, ">>$flat_db") || die("Error: $!");
 flock(ETXT, 2);
 print ETXT "$in{'txtbox'}\n";
close(ETXT) || die("Error: $!");
}

open(ETXR, "<$flat_db") || die("Error: $!");
 flock(ETXT, 1);
 while (<ETXT>) {
     print; }
close(ETXT) || die("Error: $!");

exit;

falls was unklar ist, melde Dich.

greetz mo