nicht angemeldet
Hallo und Nabend!
Ich habe eine Frage.
(Ich habe erst vor einigen Tagen angefangen Perl zu lernen, also
bitte ... ein Auge zudrücken ...oder gar beide!)
Ich möchte ein kleines Bestellformular erstellen.
Als erstes soll überprüft werden, ob alle Felder einen Eintrag erhalten
haben. Dies möchte ich mit Perl abfragen können. (es geht auch mit JS, aber
ich möchte ja etwas lernen! :)). Kann sich jemand diese Fkt.(checkfield) anschauen, und
ordentlich seinen Senf dazu geben! Und... nicht lachen! Na gut, es darf gelacht werden!
#!/usr/local/bin/perl
use CGI qw(:standard);
@notwendig=("name","email"); #Formularfelder
&checkfields;
##############################################
sub checkfields
{
foreach $check(@notwendig)
{
if (defined param($check))
{
if ($fields{$check} eq "")
{
&nochmal; # daten unvollständig
}
}
else
{
&fehler; # hmmm! Am Code rummanipuliert?!
}
}
}
....
Wäre das in Ordnung! Beim mir scheint es zu klappen (OmniHTTPd)!
Für jede konstruktive Kritik im voraus dankbar!
RoBär!