Daten werden nicht in Hash eingelesen von Richard, 21.05.2002 10:29

Daten werden nicht in Hash eingelesen

Richard 21.05.2002 10:29

perl

Hallo

Ich habe mit dem nachfolgenden Script zwei Probleme, die vermutlich in einem Fehler im Umgang mit Hashes zu suchen sind. Ich weiss nicht, ob da ein Zusammenhang besteht:

1. Wenn ich das Script im Browser ausführe, werden die im Formular erfassten Daten nicht übernommen, die Bestätigungsseite wird angezeigt ohne die eingegebenen Daten und die Gästebucheinträge sind leer. Ich krieg keine Fehlermeldung im Browser und auch nicht im Logfile und hab deshalb keine Ahnung, wo ich suchen soll.

2. Wenn ich das Script auf der Command Line ausführe, kriege ich mit Hinweis auf jene Zeilen, in denen jeweils ein Hashelement angesprochen wird, die Fehlermeldung "Use of uninitialized value ...". Dies aber erst in der Subroutine "confirmation" und nicht schon bei der elsif-Prüfung, wo die Elemente ja eigentlich das erste Mal angesprochen werden. Ich bin mir nicht bewusst, dass nicht nur der betreffende Hash sondern auch die einzelnen Hashelemente deklariert werden sollten, und hab auch nicht herausgefunden wie das gehen sollte.

Hier das Script:

#!c:/program files/perl/bin/perl -w

use diagnostics;        # nur beim Debuggen einschalten!
use strict;             # schaltet "use strict"-Pragma ein
use CGI::Carp qw(fatalsToBrowser);
my ($outfile);          # Deklaration der Variablen

use lib "http://129.132.128.47/cgi-bin";

require "cgi-lib.pl"; # parsing der FORM-Daten und Ausgabe der Variablen
use CGI qw/param/;
my %besucherdaten; # Hash "besucherdaten" wird deklariert

require "datum.pl"; # eine Routine fuer das Datum
my $date = &ctime(time);
chop($date);

&ReadParse(%besucherdaten);

Prüfung, ob zwingende Felder ausgefüllt wurden

if (undef $besucherdaten{'username'})
{no_name();}
elsif (undef $besucherdaten{'city'})
{no_city();}
elsif (undef $besucherdaten{'comments'})
{no_comments();}
else {url_test();}

Feld "username" wurde nicht ausgefüllt, Fehlerseite wird angezeigt

sub no_name{
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "<head><title>content missing in guestbook entry</title></head>\n";
print "<body bgcolor=black>\n";
print "<link rel=stylesheet type=text/css href=http://129.132.128.47/krausenet/css/richi.css>\n";
print "<h1>content missing in guestbook entry</h1>\n";
print "<p>you forgot to enter your name<br>\n";
print "please click the back-button of your browser to complete your guestbook entry</p>\n";
}

Feld "city" wurde nicht ausgefüllt, Fehlerseite wird angezeigt

sub no_city{
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "<head><title>content missing in guestbook entry</title></head>\n";
print "<body bgcolor=black>\n";
print "<link rel=stylesheet type=text/css href=http://129.132.128.47/krausenet/css/richi.css>\n";
print "<h1>content missing in guestbook entry</h1>\n";
print "<p>you forgot to enter where you come from<br>\n";
print "please click the back-button of your browser to complete your guestbook entry</p>\n";
}

Feld "comments" wurde nicht ausgefüllt, Fehlerseite wird angezeigt

sub no_comments{
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "<head><title>content missing in guestbook entry</title></head>\n";
print "<body bgcolor=black>\n";
print "<link rel=stylesheet type=text/css href=http://129.132.128.47/krausenet/css/richi.css>\n";
print "<h1>content missing in guestbook entry</h1>\n";
print "<p>you forgot to enter a comment<br>\n";
print "please click the back-button of your browser to complete your guestbook entry</p>\n";
}

Prüfung, ob eine home page angegeben wurde

sub url_test {
if (undef $besucherdaten{'homepage'})
{confirmation_no_url();}
else {confirmation();}
}

Alle zwingenden Felder ausser Home Page wurden ausgefüllt, Bestätigungsseite wird angezeigt

Eintrag im Gästebuch wird vorgenommen

sub confirmation_no_url {
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "<head><title>comment added to guestbook</title></head>\n";
print "<body bgcolor=black>\n";
print "<link rel=stylesheet type=text/css href=http://129.132.128.47/krausenet/css/richi.css>\n";

print "<h1>gigel confirmation: new comment added to guestbook</h1>\n";
print "on $date you submitted the following information:\n";

print "<table>\n";
print "<colgroup width=250>\n";
print " </colgroup>\n";
print "<tr>\n";
print " <td>your name is: </td>\n";
print " <td><i>$besucherdaten{'username'}</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>you live in: </td>\n";
print " <td><i>$besucherdaten{'city'}</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>the URL of your web site: </td>\n";
print " <td><i>no homepage defined</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>your love message: </td>\n";
print " <td><i>$besucherdaten{'comments'}</i></td>\n";
print " </tr>\n";
print "</table>\n";

print "<table>\n";
print "<tr>\n";
print " <td valign=bottom style=height:100px>we hope you enjoyed visiting our site and thank you for leaving a note</td>\n";
print " </tr>\n";
print " <td>click <a href=/krausenet/guestbook/guestbook.htm>here</a> if you want to read the guestbook now.</td>\n";
print "<tr>\n";
print "</table>\n";

$outfile = ">> c:/Program Files/Apache Group/Apache/htdocs/krausenet/guestbook/guestbook.htm";
open(OUTFILE, $outfile);
print OUTFILE "
<br>
<hr>
<br>
on $date <i>$besucherdaten{'username'}</i>
from <i>$besucherdaten{'city'}</i> left the following note:<p>
"<i>$besucherdaten{'comments'}</i>"
<br>
<br>
";
close(OUTFILE);
}

Alle zwingenden Felder wurden ausgefüllt, Bestätigungsseite wird angezeigt

Eintrag im Gästebuch wird vorgenommen

sub confirmation {
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "<head><title>comment added to guestbook</title></head>\n";
print "<body bgcolor=black>\n";
print "<link rel=stylesheet type=text/css href=http://129.132.128.47/krausenet/css/richi.css>\n";

print "<h1>confirmation: new comment added to guestbook</h1>\n";
print "on $date you submitted the following information:\n";

print "<table>\n";
print "<colgroup width=250>\n";
print " </colgroup>\n";
print "<tr>\n";
print " <td>your name is: </td>\n";
print " <td><i>$besucherdaten{'username'}</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>you live in: </td>\n";
print " <td><i>$besucherdaten{'city'}</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>the URL of your web site: </td>\n";
print " <td><i>$besucherdaten{'homepage'}</i></td>\n";
print " </tr>\n";
print "<tr>\n";
print " <td>your love message: </td>\n";
print " <td><i>$besucherdaten{'comments'}</i></td>\n";
print " </tr>\n";
print "</table>\n";

Bin dankbar für jeden Tip
Gruss
Richard

Beitrag melden

– Informationen zu den Bewertungsregeln

SELFHTML Forum - Ergänzung zur Dokumentation Übersicht

Richard: Daten werden nicht in Hash eingelesen

Beitrag lesen