Thread Syntax-Error
(30 answers)
Opened by SirLant at 2003-08-26 20:34
Habe hier zwei Fehler in meiner Syntax, finde die aber beim besten willen nicht, vllt. könnt ihr mal nen Blick drauf werfen.
Ist in der nähe von Zeile 41 und 64 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 #!e:/programme/perl/bin/perl.exe -w #gb.cgi - Gästebuch use strict; use warnings; use CGI qw %:standard escape escapeHTML%; use CGI::Carp qw %fatalsToBrowser%; my $datei = "gb.txt"; my @seite; my $aktion = param ("aktion"); print "<html><head><title>Gästebuch</title></head><body> "; if ($aktion eq "") { open(FH, "$datei") or die "Fehler beim oeffnen von $datei: $!"; print "<table>"; if (@seite) { for (@seite) { next if $_ eq "#### "; print "<tr>$_</tr>"; } print "</table><br>"; } else { print "<h3>Noch keine Einträge vorhanden</h3>"; close FH; print "<div align = \"center\"><a href = \"gb.cgi?aktion=eintrag\">Schreib mir!</a></div>"; } elsif ($aktion eq "eintrag") { print "<table><form aktion = \"gb.cgi?aktion=new\" method = \"GET\">"; print "<tr>"; print "<td>Name</td>"; print "<td><input type = \"text\" name = \"name\"></td></tr>"; print "<tr>"; print "<td>E-mail</td>"; print "<td><input type = \"text\" name = \"email\"></td></tr>"; print "<tr>"; print "<td>Homepage</td>"; print "<td><input type = \"text\" name = \"hompage\"></td></tr>"; print "<tr>"; print "<td>Wohnort</td>"; print "<td><input type = \"text\" name = \"wohnort\"></td></tr>"; print "<tr>"; print "<td>Nachricht</td>"; print "<td><textarea name = \"nachricht\"></textarea></td></tr>"; print "<tr>"; print "<td><input type = \"submit\" name = \"button\" value = \"eintragen\"></td></tr>"; print "</table><br>"; print "<a href = \"gb.cgi\">zurück</a>"; } elsif ($aktion eq "new") { open(FH, "> $datei") or die "Fehler beim oeffnen von $datei: $!"; print <FH> "<td>Name:</td><td>" . param ("name") . "</td> ": print <FH> "<td>E-Mail:</td><td>" . param ("email") . "</td> "; print <FH> "<td>Homepage:</td><td>" . param ("homepage") . "</td> "; print <FH> "<td>Wohnort:</td><td>" . param ("Wohnort") . "</td> "; print <FH> "<td>Nachricht:</td><td>" . param ("nachricht") . "</td> "; print <Fh> "<td rowspan = \"2\"><hr></td>"; print <FH> "#### "; close FH; open(FH, "$datei") or die "Fehler beim oeffnen von $datei: $!"; print "<table>"; while (<FH>) { next if $_ eq "#### "; print "<tr>$_</tr>"; } close FH; print "</table><br>"; print "<a href = \"gb.cgi?aktion=new\">Schreib mir!</a>"; } print "</body></html>"; exit 0; Zeile 41 ist das elsif ($aktion eq "eintrag") { und zeile 64 das } über elsif ($aktion eq "new") { Das GB ist nur ne kleine Aktion aus langeweile, deshalb ist es so simpel :)\n\n <!--EDIT|SirLant|1061915777--> --Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots. So far, the Universe is winning! |