nicht angemeldet
Hallo Leuts,
Hallo
Datei "gaeste.pl"
__________________________________
#!C:/Perl/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
open(DATEI, "<Z:/cgi-bin/GAESTE/gaeste.html") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close (DATEI);
my @Feldnamen=$cgi->param();
my @NeuerEintrag;
push (@NeuerEintrag, "<table border=1 width=50% height=50% cellpadding=5><tr height=10%><td valign=middle>");
ändere @Feldnamen[0]in $Feldnamen[0] um.
push (@NeuerEintrag, $cgi->param(@Feldnamen[0]));
push (@NeuerEintrag, "</td></tr><tr><td align=center valign=middle>");
ändere @Feldnamen[1]in $Feldnamen[1] um.
push (@NeuerEintrag, $cgi->param(@Feldnamen[1]));
push (@NeuerEintrag, "</td></tr></table>");
push (@NeuerEintrag, "</body></html>");
my @NeueZeilen;
my $Zeile;
foreach $Zeile (@Zeilen)
{
if(/^<!--NEU-->/)
{
foreach(@NeuerEintrag)
{
push(@NeueZeilen,$_);
}
push(@NeueZeilen,"<!-- NEU -->\n");
}
else
{
push(@NeueZeilen,$Zeile);
}
}
Wenn du den Inhalt der Datei nicht jedesmal überschreiben willst, solltest du die Syntax umändern in: open(DATEI, ">>Z:\cgi-bin...
open(DATEI, ">Z:/cgi-bin/GAESTE/gaeste.html") || die "Datei nicht gefunden";
print DATEI @NeuerEintrag;
close (DATEI);
print $cgi->header();
print "<html><head><title>Testausgabe</title></head><body bgcolor=#004080 text=#80FFFF>";
print "</body></html>";
Ansonsten solltest du noch den Pfad für den Bang überprüfen (#!C:/Perl/bin/perl) wenn der nämlich nicht stimmt, ist das auch äusserst schlecht.
Mfg Jan