SELFHTML/Navigationshilfen CGI/Perl Perl-Sprachelemente| SELFHTML/Navigationshilfen CGI/Perl Perl-Sprachelemente |
Sie können zum Beispiel einem 
Skalar einen Wert zuweisen. Der Zuweisungsoperator dafür ist ein Gleichheitszeichen
my $Name = "Josua Piesepampel"; my $Code = 4711; |
Den Skalaren wird mit dem Zuweisungsoperator = jeweils ein Wert zugewiesen.
 
|
Vergleichsoperatoren brauchen Sie, wenn Sie zwei Werte vergleichen wollen, z.B. den aktuellen Inhalt eines Skalars mit einem fixen Wert.
if($SinnDesLebens == 42)
{ print "Sie haben das Leben verstanden!\n" };
if($SinnDesLebens != 42)
{ print "Sie haben nix kapiert vom Leben!\n" };
if($SinnDesLebens > 42)
{ print "Sind Sie wahnsinnig?\n" };
if($SinnDesLebens < 42)
{ print "Sie sind eine Nummer zu klein für das Leben!\n" };
if($Alter >= 18)
{ print "Sie dürfen selbst diesen Schwachsinn hier sehen!\n" };
if($Alter <= 17)
{ print "Sie sind nicht mal alt genug für diesen Schwachsinn!\n" };
if($Passwort eq "Hexasex")
{ print "Sie haben Zugang zum Sex im hexadezimalen Raum!\n" };
if($Passwort ne "Hexasex")
{ print "Haben Sie lieber eindimensionalen Sex daheim im Bett!\n" };
if($Name gt "Y")
{ print "Sie sind aber auch immer der Letzte!\n" };
if($Name lt "B")
{ print "Sie sind aber auch immer der Erste!\n" };
if($Name ge "ZZ Top")
{ print "Ihre Lieblingsband ist ZZ Top oder was ganz Perverses!\n" };
if($Name le "Abba")
{ print "Ihre Lieblingsband ist Abba oder was ganz Perverses!\n" };
if($Alter =~ /[^0-9]/)
{ print "Das ist ja gar keine Zahl!\n" };
|
Perl unterscheidet Vergleichsoperatoren für Zahlen und für Zeichenketten. Ferner gibt es einen speziellen Operator für Vergleiche mit
regulären Ausdrücken.
Um abzufragen, ob zwei Zahlen gleich sind, notieren Sie zwei Gleichheitszeichen == nebeneinander.
Um abzufragen, ob zwei Zahlen unterschiedlich sind, notieren Sie zwischen beiden Werten die Zeichen !=.
Um abzufragen, ob eine Zahl größer oder gleich ist als eine andere, notieren Sie die Zeichen >=.
Um abzufragen, ob eine Zahl in jedem Fall größer ist als eine andere, notieren Sie das Zeichen >.
Um abzufragen, ob eine Zahl kleiner oder gleich ist als eine andere, notieren Sie die Zeichen <=.
Um abzufragen, ob eine Zahl in jedem Fall kleiner ist als eine andere, notieren Sie das Zeichen <.
Um abzufragen, ob zwei Zeichenketten gleich sind, notieren Sie eq zwischen den beiden Werten, die verglichen werden sollen (eq = equal = gleich).
Um abzufragen, ob zwei Zeichenketten unterschiedlich sind, notieren Sie ne zwischen den beiden Werten, die verglichen werden sollen (ne = not equal = nicht gleich).
Um abzufragen, ob eine erste Zeichenkette alphabetisch weiter hinten liegt als eine zweite, notieren Sie gt zwischen den beiden Werten, die verglichen werden sollen (gt = greater than = größer als).
Um abzufragen, ob eine erste Zeichenkette alphabetisch weiter vorne liegt als eine zweite, notieren Sie lt zwischen den beiden Werten, die verglichen werden sollen (lt = less than = kleiner als).
Um abzufragen, ob eine erste Zeichenkette alphabetisch gleich ist wie eine zweite oder weiter hinten liegt, notieren Sie ge zwischen den beiden Werten, die verglichen werden sollen (ge = greater or equal = größer oder gleich).
Um abzufragen, ob eine erste Zeichenkette alphabetisch gleich ist wie eine zweite oder weiter vorne liegt, notieren Sie le zwischen den beiden Werten, die verglichen werden sollen (le = less or equal = kleiner oder gleich).
Um den Wert eines Skalars, egal ob Zahl oder Zeichenkette, mit einem regulären Ausdruck zu vergleichen (Fachjargon: an einen regulären Ausruck zu binden), benutzen Sie den Bindungsoperator =~.
|
|
Um mit numerischen Werten Berechnungen durchzuführen, brauchen Sie Berechnungsoperatoren.
$Hundertlasser = 83 + 17;
$Hundertlasser = 113 - 13;
$Hundertlasser = 4 * 25;
$Hundertlasser = 450 / 4.5;
$Hundertlasser = 450 / 2 - 125;
$Hundertlasser = 10 * (2 + 8);
$Hundertlasser = 10 ** 2;
$x = $Hundertlasser % 4;
if($x == 0)
{ print $Hundertlasser, " ist ein Schaltjahr\n" }
# Besondere Notationen:
$Zahl = 100;
$Zahl++; # $Zahl um 1 erhoehen
$Zahl--; # $Zahl um 1 erniedrigen
$Zahl += 10; # $Zahl um 10 erhoehen
$Zahl -= 10; # $Zahl um 10 erniedridgen
$Zahl *= 10; # $Zahl mit 10 multiplizieren
$Zahl /= 10; # $Zahl durch 10 dividieren
$Zahl %= 10; # $Zahl durch 10 modulo-dividieren
$Zahl **= 2; # $Zahl hoch 2 errechnen
|
Mathematische Operatoren notieren Sie mit den dafür üblichen Zeichen. Mit + notieren Sie eine Addition, mit - eine Subtraktion, mit * eine Multiplikation, mit / eine Division, und mit ** eine Potenzoperation "x hoch y". Eine Besonderheit stellt der Operator % dar. Damit wird eine so genannte Modulo-Division durchgeführt. Bei einer Modulo-Division werden zwei Werte dividiert. Das Ergebnis ist jedoch im Gegensatz zur normalen Division nur der Restwert der Division. Wenn Sie z.B. 13 % 5 notieren, erhalten Sie als Ergebnis 3, weil 13 geteilt durch 5 gleich 2 Rest 3 ergibt. Diese 3 ist es, die als Ergebnis einer Modulo-Division herauskommt.
Sie können mehrere Operationen in Reihe notieren. Dabei gilt die übliche "Punkt-vor-Strich-Regel". Wenn Sie eine andere Regel erzwingen wollen, müssen Sie Klammern verwenden, so wie im obigen Beispiel $Hundertlasser = 10 * (2 + 8);.
Die besonderen Notationen, die in den obigen Beispielen vorkommen, können Sie verwenden, wenn Sie Additionen oder Subtraktionen abkürzen wollen:
$Zahl++; ist eine Abkürzung für $Zahl = $Zahl + 1;
$Zahl--; ist eine Abkürzung für $Zahl = $Zahl - 1;
$Zahl += 10; ist eine Abkürzung für $Zahl = $Zahl + 10;
usw. bei den gleichartigen Operationen.
Der Operator ++ wird auch als Inkrementationsoperator bezeichnet, der Operator -- als Dekrementationsoperator.
Bei den Operatoren ++ und -- gibt es eine Besonderheit, die auf C bzw. sogar auf die Maschinensprache (Assembler) zurückzuführen ist. Die Operatoren können sowohl vor als auch nach der Variablen notiert werden (also z.B. sowohl $Zahl++ als auch ++$Zahl). Werden Sie davor notiert, wird die Operation ausgeführt, bevor der Ausdruck ausgewertet wird (Fachjargon: Pre-In-/Dekrement). Umgekehrt gilt: wird der Operator nach der Variablen notiert, wird die Operation nachdem der Ausdruck ausgewertet wurde ausgeführt (Fachjargon: Post-In-/Dekrement). Die Ausgabe des folgenden Codes sollte Sie also nicht überraschen:
my $Zahl=1;
Es wird zweimal
print $Zahl++;
print --$Zahl;1 ausgegeben. Beim ersten Mal, weil $Zahl ausgegeben wird, bevor Eins dazuaddiert wird. Beim zweiten Mal, weil Eins subtrahiert wird, bevor $Zahl ausgegeben wird.
|
|
Logische Operatoren brauchen Sie, um Ausdrücke zu formulieren, die wahr oder falsch sein können. Verwendung finden solche Ausdrücke besonders in Bedingungen für bedingte Anweisungen oder Schleifen.
if($a == 1 && $b == 2) {
# wenn a = 1 ist und b = 2
}
if($a == 1 and $b == 2) {
# wenn a = 1 ist und b = 2
}
if($a == 1 || $b == 1) {
# wenn a = 1 oder b = 1 ist
}
if($a == 1 or $b == 1) {
# wenn a = 1 oder b = 1 ist
}
if($a == 1 ^ $b == 1) {
# wenn entweder a = 1 oder b = 1 ist
}
if($a == 1 xor $b == 1) {
# wenn entweder a = 1 oder b = 1 ist
}
if (! ($a == 2)) {
# nicht a = 2
}
if (not ($a == 2)) {
# nicht a = 2
}
|
Mit dem logischen Operator && oder dem Wort dafür (and) verknüpfen Sie zwei oder mehrere Bedingungen durch "und", d.h. beide bzw. alle Bedingungen müssen erfüllt sein, damit die gesamte Bedingung erfüllt ist.
Mit dem logischen Operator || oder dem Wort dafür (or) verknüpfen Sie zwei oder mehrere Bedingungen inklusiv durch "oder", d.h. es genügt, wenn eine der Bedingungen erfüllt ist, damit die gesamte Bedingung erfüllt ist.
Mit dem logischen Operator ^ oder dem Wortkürzel dafür (xor) verknüpfen Sie zwei oder mehrere Bedingungen exklusiv durch "oder", d.h. es muss entweder die eine oder die andere Bedingungen erfüllt sein, damit die gesamte Bedingung erfüllt ist.
Mit dem logischen Operator ! oder dem Wortkürzel dafür (not) verneinen Sie eine nachfolgende Bedingung, d.h. Sie fragen nicht, ob die Bedingung wahr ist, sondern ob sie falsch ist.
|
|
Um Bit-Operatoren richtig einzusetzen, müssen Sie viel von computer-internen Speichervorgängen verstehen. Deshalb werden die Bit-Operatoren hier nur kurz erwähnt.
>> verschiebt Bits nach rechts
<< verschiebt Bits nach links
& verknüpft zwei Werte mit einem bitweisen UND
| verknüpft zwei Werte mit einem bitweisen ODER
^ verknüpft zwei Werte mit einem bitweisen Exlusiv-Oder (XOR)
~ bildet das Komplement eines Wertes (alle Bits kehren sich um)
|
|
In Perl brauchen Sie nicht wie in manchen anderen Programmiersprachen eine Funktion, um Zeichenketten zu verknüpfen, sondern es gibt einen Operator dafür.
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
my $HTML_Ausgabe = "Die Umgebungsvariable <b>HTTP_USER_AGENT</b> hat den Wert <b>".$ENV{HTTP_USER_AGENT}."</b><br>";
$HTML_Ausgabe .= "<hr>Ende der Ausgabe";
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Testausgabe</title>\n";
print "</head><body>\n";
print $HTML_Ausgabe;
print "</body></html>\n";
|
Ein Punkt . ist der Operator, um Zeichenketten miteinander zu verknüpfen. Die verknüpften Zeichenketten können literal sein, also einfach Text enthalten, aber auch eine Variable sein. Im Beispielscript sehen Sie einen für CGI-Scripts typischen Anwendungsfall für den Zeichenkettenoperator. Dort wird eine längere HTML-Ausgabe, gespeichert im Skalar $HTML_Ausgabe, aus einzelnen Zeichenketten zusammengebastelt. Unter anderem wird dabei der Wert der Umgebungsvariablen HTTP_USER_AGENT, die Namen und Version des aufrufenden Browsers enthält, mit eingefügt.
Das Beispielscript zeigt in der zweiten Anweisung auch, wie sich neue Zeichenketten an eine bereits vorhandene anhängen lassen. Mit .= wird das, was rechts davon steht, einfach der Variablen zugewiesen, die links davon steht. Die gleiche Anweisung könnten Sie übrigens auch in folgender Langform notieren:
$HTML_Ausgabe = $HTML_Ausgabe."<hr>Ende der Ausgabe";
Das Script gibt die zusammengesetzte Zeichenkette mit einer print-Anweisung im Browser aus.
|
|
In Perl können Sie mit x Zeichenketten "multiplizieren".
print "A"."h" x 10, "!\n"; # erzeugt die Ausgabe "Ahhhhhhhhhh!" |
Notieren Sie den x-Operator hinter der Zeichenkette, die Sie multiplizieren wollen. Hinter dem Operator geben Sie an, wie oft die Zeichenkette wiederholt werden soll.
|
|
Unter den Operatoren von Perl gibt es eine festgelegte Rangordnung. Wenn Sie komplexe Rechenoperationen durchführen oder mehrere Bedingungen miteinander verknüpfen, gilt bei der internen Auflösung solcher komplexen Ausdrücke die folgende Rangordnung:
++ -- (Inkrementieren, Dekrementieren)** (Potenzierung)! ~ (logische und bitweise Negation)=~ !~ (Bindung an regulären Ausdrücke)* / % x (Multiplikation, Division, Modulo-Operation, Zeichenkettenwiederholung)+ - . (Addition, Subtrakion, Zeichenkettenaddition)<< >> (Verschieben von Bits)< <= > >= lt le gt ge (Vergleich größer/kleiner)== != eq ne (Gleichheit/Ungleichheit)& (bitweises UND)| ^ (bitweises ODER - inklusiv/exklusiv)&& (logisches UND)|| (logisches Oder).. (Bereichsdefinition in Listen)?: ( Entweder-Oder-Bedingung)= += -= &= ^= |= (Zuweisung), => (Aneinanderreihung)not (logische Negation)and (logisches UND)or xor (logisches ODER (inklusiv/exklusiv)Mit Hilfe von Klammern können Sie die Rangfolge bei den Operatoren beeinflussen und Ausdrücke so bewerten, wie Sie es wünschen.
$OffizielleStatistik = 3.29 * 3 + 4.71; $MeineStatistik = 3.29 * (3 + 4.71); |
Durch die Klammer wird in dem Beispiel die "Punkt-vor-Strich"-Regel, die auch unter den Berechnungsoperatoren von Perl gilt, aufgehoben.
|
| |
 |
Reguläre Ausdrücke
|
 |
Sprungbefehle
|
| SELFHTML/Navigationshilfen CGI/Perl Perl-Sprachelemente |
© 2001 
selfhtml@teamone.de