Perl-Quelltext des CGI-Programms echo

Die wesentlichen Verarbeitungssequenzen sind im Quelltext unten fettgedruckt.

Entscheidend für das Verständnis dieser Sequenzen ist die Kenntnis eines assoziativen Arrays (Hash) in Perl, welches die Name-Wert-Paare (oder Schlüssel-Wert-Paare, key-value-pair) beinhaltet und das von der Funktion getcgivars() geliefert wird.

Auf diese Name-Wert-Paare kann in Perl relativ einfach per Schlüssel (key) zugegriffen werden.
Hier wird als Hash %cgivars verwendet, es tut aber jeder andere Name selbstverständlich auch.

Die Funktion keys liefert alle Schlüssel des importierten assoziativen Arrays %cgivars in Form eines normalen Arrays.
Die Funktion sort sortiert das von keys gelieferte Array mit den Schlüsseln.
sort ist hier nicht wirklich erforderlich, sie soll nur eine gewisse Ordnung erzwingen.
$key nimmt in der Schleife nacheinander alle Werte des nun sortierten Arrays an.
$cgivars{$key} ist der Wert zum Schlüssel $key.

# CGI-Programm echo # gibt einfach die gelieferten Name-Wert-Paare in HTML-Syntax zurueck # Gerhard Eichelsdoerfer, 1998-10-28

# Name-Wert-Paare (CGI-Variable) holen %cgivars = getcgivars();

# Ersten HTML-Teil ausgeben print<<First; Content-Type: text/html <html> <head> <title>CGI-echo in Perl</title> </head> <body> <h1>Hallo!</h1> Deine CGI-Eingaben sind: <ol> First

# alle Name-Wert-Paare ausgeben foreach $key (sort keys %cgivars) { print " <li>$key: $cgivars{$key}<p>\n"; }

# Letzten HTML-Teil ausgeben print<<Last; </ol> </body> </html> Last

zurück

Gerhard Eichelsdörfer