Hilfe mit einem GB: ich brauche mit nem selbstgeproggten GB - #1808 (Perl/CGI)

Strat

2003-08-29 03:02

User since
2003-08-04
5246 Artikel
ModeratorIn

Ich habe es mal ein klein wenig umgeschrieben. Wie gefaellt es dir so?

Code: (dl )

#! /usr/bin/perl

use CGI;
use warnings;
my $cgi = new CGI;

use CGI::Carp qw(fatalsToBrowser);

my $GaestebuchDatei = "/homepages/18/d23090695/htdocs/eintrag.html";

my @NeuerEintrag = 
    (
     "<!-- Eintrag [" . $cgi->param(Username) . "] -->\n",
     "<table border=\"0\" width=\"40%\"><tr>\n",
     "<th>Name:</th><td>" . $cgi->param(Username) . "</td></tr>\n",
     "<tr><td colspan=\"2\">" . $cgi->param(Usertext) . "</td>\n",
     "</tr></table>\n",
     );

open( DATEI, $GaestebuchDatei ) or die "Datei nicht gefunden!";
my @Zeilen = <DATEI>;
close(DATEI);

my @NeueZeilen;

foreach my $Zeile (@Zeilen) {

    if ( $Zeile =~ /^<\!\-\- NEU \-\->$/ ) {
        push (@NeueZeilen, @NeuerEintrag, "<!-- NEU -->\n" );
    }
    else {
        push ( @NeueZeilen, $Zeile );
    }

}

open( DATEI2, ">$GaestebuchDatei" ) or die "Datei nicht gefunden!";
print DATEI2 @NeueZeilen;
close(DATEI2);

print "Content type: text/html\n\n";
print "<html><head></head><body>Erfolgreich</body></html>";

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/