Hallo,
ich habe hier mit einem Scribt riesige Probleme:
----------------------------
#!/usr/bin/perl
# Ausgabe der Formularinhalte
print "Content-Type: text/html
";
print "<HTML>
";
print "<HEAD>
"; print "<TITLE> Ausgabe der Formularinhalte</TITLE>
";
print "</HEAD>
";
print "<BODY>
";
print "<H1>Feedback</H1>
";
print "<P>Sie haben soeben folgende Eingaben in das Formular eingetragen:</P>
";
# ÜbertragungsmethodePOST
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
$eingabe =
$ENV{'QUERY_STRING'};
}
# Übertragungsmethode GET
else
{
binmode STDIN;
read (STDIN, $eingabe, $ENV{'CONTENT_LENGTH'});
}
# paarweises Zerlegen des Inhalts
@Formularfelder = split(/&/,$eingabe);
# jedes Wertepaar in der Liste wird separat bearbeitet und ausgegeben
foreach $Paar (@Formularfelder)
{
# Formularname und eingetragener Wert aufsplitten
# Als Trennzeichen wird das Gleichheitszeichen benutzt.
($formularname, $wert) = split(/=/,$Paar);
# +-Zeichen in Leerzeilen rückkonvertieren
$wert =~ tr/+/ /;
# Sonderzeichen rückkonvertieren
$wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg;
# Formularnamen und Werte ausgeben
print "<P>$formularname = $wert</P>
";
}
print "<H1>Ausgabe von Umgebungsvariablen</H1>
";
print "<P>Server-Software: $ENV{'SERVER_TYPE'}</P>
";
print "<P>Server-Name: $ENV{'SERVER_NAME'}</P>
";
print "</BODY>
";
print "</HTML>
";
--------------------------------
Da haben sich Fehler eingeschlichen und ich finde die einfach nicht....
Ich bin mir sicher ,das es für jemanden ,der so was öfter macht ne Kleinigkeit ist.
Kann mir bitte da mal jemand auf die Sprünge helfen???
Freue mich über jeden Tipp
Gruß Hein*
perl -Formulare usw
Re: perl -Formulare usw
- beschreib doch mal welcher fehler auftritt
- verwende [<!--no-->code<!--no-->]-tags für die bessere lesbarkeit des code.
dann werden sich das sicher einige leute mal genauer anschauen und dir bestimmt auch helfen können.
- verwende [<!--no-->code<!--no-->]-tags für die bessere lesbarkeit des code.
dann werden sich das sicher einige leute mal genauer anschauen und dir bestimmt auch helfen können.
Re: perl -Formulare usw
Thx für den Hinweis...habe die Lösung aber schon <img src="http://www.pl-forum.de/UltraBoard/Images/Happy.gif" border="0" align="middle"> selbst gefunden......
Mit dem <blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2"></font><hr></pre></blockquote> war mir hier nicht geläufig -Sorry für das Versehen.
Hein*
Mit dem <blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2"></font><hr></pre></blockquote> war mir hier nicht geläufig -Sorry für das Versehen.
Hein*