Bedingungen in Perl (dBooks

Perl


					Bedingungen
					Schleifen
					Funktionen

PageMap

(Umfang 48 Seiten)


		Sponsoring








	Auswahl dBooks: Suche und verwandte Themen








	Verschiedenes

Bedingungen

Perl bietet neben den typischen Schreibweisen auch eine ganze Reihe von Kurzschreibweisen.

Hier aber erst einmal ein Beispiel für die einfachen Bedingungen.

Das einfache Gewichtsbeispiel

Noch ein Hinweis: In der ausführenden Datei exec.pl wird neben Layout auch die Abfrage so umgewandelt, daß die Variablen über den Namen mit $name angesprochen werden können.

Beispiel anschauen
(/cgi-local/exec.pl?executeExample=statementsCondition&weight=89&height=190)

Quellcode

#===========================================
# Example statementsCondition.pm
#===========================================

#--------------------------------------------
# result from query
#--------------------------------------------
print '<h3>Ergebnis für Größe ' . $height . ' und Gewicht ' . $weight . '</h3>';
if ($weight > $height - 100) {
   print "<h1 style=\"color:red;\">Sie sind leider zu dick!</h1>";
}
elsif ($weight < $height - 120) {
   print "<h1 style=\"color:yellow;\">Sie sollten mehr essen!</h1>";
}
else {
   print "<h1 style=\"color:green;\">Gratuliere, Sie haben ein normales Gewicht!</h1>";
}

#--------------------------------------------
# print Form
#--------------------------------------------
print '
<form action="/cgi-local/exec.pl" method="post">
   <input type="hidden" name="executeExample" value="statementsCondition">
   Gewicht: <input type="text" size="3" name="weight" value="'. $weight . '"> kg<br>
   Größe: <input type="text" size="3" name="height" value="' . $height . '"> cm<br>
   <input type="submit" value="analysieren">
   <hr>
</form>';

Links


		Unkommentierte Links: perl-archiv.de: Bedingungen google.de: Suche: perl Bedingungen (de) google.de: Suche: perl conditions Link empfehlen

(München, 2001-04-08 14:12:20 / )

Der Betreiber von www.dBooks.de übernimmt keine Verantwortung für den Inhalt und die Richtigkeit der Angaben auf den verlinkten Websites. Zu den üblichen NoNos gibt es keine direkten Verweise.

(Umfang dBook Perl: 48 Themenseiten )
letzte Generierung Mon, 30 Apr 2001 10:13:05 GMT 28
© Werner Diwischek