Einführung in Perl, Sixth Edition

Kontrollstrukturen mit while

Wie die meisten auf Algorithmen basierenden Programmiersprachen besitzt auch Perl eine Reihe von Schleifenstrukturen.^[66] Die while-Schleife wiederholt einen Anweisungsblock, solange eine Bedingung wahr ist:

$zaehler = 0;
while ($zaehler < 10) {
  $zaehler += 2;
  print "Der Zähler steht jetzt auf $zaehler\n";
  # gibt die Werte 2, 4, 6, 8 und 10 aus
}

Wie wir es bereits vom if-Test kennen, steht auch hier der Bedingungsteil in runden Klammern. Analog dazu muss der dazugehörige Anweisungsblock wieder in geschweiften Klammern stehen. Der Ausdruck, der die Bedingung enthält, wird zuerst ausgewertet. Dadurch wird die Schleife komplett übersprungen, sofern die Bedingung schon zu Beginn falsch ist.

^[66] Jeder Programmierer erzeugt ...