|
![]() ![]() ![]() ![]() ![]() |
my $p = new CGI; if ($p->param && $p->param('keys')) { # Suche durchfuehren und Ergebnis ausgeben } else { print_header("Suche nach einer E-Mail-Adresse"); print $hinweise; } print_form(); print "<HR>\n"; print qq(<ADDRESS><A HREF="/">Fakultät für Mathematik und Wirtschaftswissenschaften der Universität Ulm</A>, <A HREF="mailto:$admin">$admin</A></ADDRESS>\n); print $p->end_html; |
![]() | new CGI liefert ein Objekt, über das die CGI-Methoden
zur Verfügung stehen.
|
![]() | $p->param liefert eine Liste der Parameternamen
aus der URL oder dem ausgefüllten Formular. Wenn noch nichts
vorliegt, ist diese Liste leer.
|
![]() | $p->param('keys') liefert den Wert des Parameter keys.
Dies ist der einzige Parameter in diesem Beispiel.
|
![]() | In jedem Falle wird ein Formular mit print_form erzeugt.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |