Hallo,
ich habe erst vor einigen Tagen angefangen, mich ausgiebig mit
CGI/PERL unter der Anleitung von selfHTML zu beschäftigen. Jetzt habe
ich jedoch mit den einzelnen Teilen, die man da anscheinend noch
selbst modifizieren muss (nich dass ich was dagegen hätte, ehrlich,
ich finds sogar ausgesprochen gut dass das nicht wieder so ein fertig-
Teil ist), probleme. (Siehe
http://selfhtml.teamone.de/cgiperl/sprache/cgitypisch.htm#gaestebuch )
was passt jetzt hierdran noch nicht:
#!d:/wampp-0.2.1c/perl/bin/perl.exe -w
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my $usrname = $cgi->param('usrname');
my $usrtext = $cgi->param('usrtext');
open (DATEI, "<guestbook.htm");
my @Zeilen = <DATEI>;
close (DATEI);
my @NeuerEintrag;
push(@NeuerEintrag, "<!-- EINTRAG [".$usrname."] -->\n");
push(@NeuerEintrag, "<table border="1"><tr>\n");
push(@NeuerEintrag, "<th>von:</th><td>".$usrname."</td>\n");
push(@NeuerEintrag, "</tr><tr>\n");
push(@NeuerEintrag, "<td colspan="2">".$usrtext."</td>\n");
push(@NeuerEintrag, "</tr></table>\n");
#Hier fehlt wohl was, das Teil aus selfHTML funzt aber nicht so richtig.
open (DATEI, ">guestbook.htm";
print $cgi->header();
print "@NeueZeilen";
close (DATEI);
Vielen vielen Dank schon mal für eure Hilfe bei diesem Problem.
Dave