Sahanya

Um nur unter bestimmten Bedingungen Teile eines Perlskriptes zu aktivieren, verwendet man die folgenden Ausdrücke: if ... else, if ... elsif ...else, unless, while, until, for, foreach. Hier einige Beispiele:

if … else (wenn … sonst)
print "Wie warm ist es?\n";
chomp ($temperatur = <STDIN>);
if ($temperatur > 22) {
print "Es ist zu heiss\n";
}
else {
print "Es ist zu kalt\n";
}

if .. elsif … else (wenn … oder … sonst )
print "Wie warm ist es?\n";
chomp ($temp = <STDIN>);
if ($temp > 24) {
print "Es ist zu warm.\n";
}
elsif ($temp < 21) {
print "Es ist zu kalt\n";
}
else {
print "Es ist gerade richtig.\n";
}

unless (außer wenn) — Gegenteil von if
print "Wie warm ist es?\n";
chomp ($temperatur = <STDIN>);
unless ($temperatur < 22) {
print "Es ist zu heiss\n";
}
else {
print "Es ist zu kalt\n";
}

while (während)
print "Nenne mehrere Zahlen. 999 beendet die Eingabe.\n";
chomp ($zahlen = <STDIN>);
while ($zahlen != 999) {
$summe += $zahlen;
print "Noch eine! 999 beendet die Eingabe.\n";
chomp ($zahlen = <STDIN>);
}
print "Die Gesamtsumme ist $summe.\n";

until (bis) — Gegenteil von while
print "Nenne mehrer Zahlen. 999 beendet die Eingabe.\n";
chomp ($zahlen = <STDIN>);
until ($zahlen == 999) {
$summe += $zahlen;
print "Noch eine! 999 beendet die Eingabe.\n";
chomp ($zahlen = <STDIN>);
}
print "Die Gesamtsumme ist $summe.\n";

for (für) — ähnelt while wird aber nur einmal ausgeführt
print "Nenne eine Zahl\n";
chomp ($zahl = <STDIN>);
for ($zahl) {
$quadrat = $zahl * $zahl;
}
print "$zahl zum Quadrat ergibt $quadrat\n";

foreach (für alle)
foreach $zahlen (0 .. 32) {
$quadrat = $zahlen * $zahlen;
print "$zahlen zum Quadrat ergibt $quadrat\n";
}

Andere Perl-Themen