Ein CGI Beispiel

add.pl

#!/usr/local/bin/perl -Tw use strict; use CGI; my $q = new CGI; my %add = ( auto => "KFZ", haft => "Haftpflicht", bu => "BU", recht => "Rechtschutz", ); print $q->header, $q->start_html("Versicherungen"), $q->h1("Versicherungen"); if ($q->param()) { # the form has already been filled out my $age = $q->param("age"); if ($age =~ /^\d+$/) { print $q->p("Danke, für die Altersangabe: $age"); } my $num = $q->param("num"); print $q->p("Ihnen werden $num Exemplare unserer ". "Werbung geschickt."); print $q->p("Sie werden Werbung bekommen über: "); print $q->ul($q->li({-type=>'square'}, [@add{$q->param("add")}])); }

Die if-Bedingung ist nur erfüllt, wenn das Formular bereits ausgefüllt worden ist.

[@add{$q->param(ädd")}] liefert einen Zeiger auf eine Liste der Versicherungen, die ausgewählt worden sind.

	Die if-Bedingung ist nur erfüllt, wenn das Formular bereits ausgefüllt worden ist.
	`[@add{$q->param(ädd")}]` liefert einen Zeiger auf eine Liste der Versicherungen, die ausgewählt worden sind.