EMZETT.if/elsif/else, unless, while, until, for und foreach. Bedingungen sind in Perl wahr, wenn sie nicht 0, "", "0" oder undef sind. Es gibt Modifikatoren am Zeilenende: print "ja\n" if $x > 5;. Mit last und next steuerst du Schleifen. Vergleiche: == für Zahlen, eq für Texte.
Wer == mit Texten benutzt, bekommt falsche Ergebnisse, ein häufiger Anfängerfehler.
use strict;
use warnings;
foreach my $i (1 .. 3) {
print "Runde $i\n";
}
my $zahl = 7;
print "ungerade\n" if $zahl % 2;
print "gleich\n" if "abc" eq "abc"; # eq für Texte
my $punkte = 73;
if ($punkte >= 90) { print "sehr gut\n" }
elsif ($punkte >= 50) { print "bestanden\n" }
else { print "nicht bestanden\n" }Merke
==für Zahlen,eqfür Texte- Modifikatoren:
... if Bedingung; foreach my $x (@liste)läuft durch Listen
Aufgabe
Gib alle geraden Zahlen von 1 bis 20 aus.