Perl verschachtelte Schleifen
Perl-SchleifenDie Sprache Perl erlaubt es, eine Schleife innerhalb einer anderen Schleife zu verwenden. Die folgenden Beispiele veranschaulichen dieses Konzept.
Syntax
Die Syntax einer verschachtelten for-Schleifenanweisung:
for ( init; condition; increment ){
for ( init; condition; increment ){
statement(s);
}
statement(s);
}
Die Syntax einer verschachtelten while-Schleifenanweisung:
while(Bedingung){
while(Bedingung){
statement(s);
}
statement(s);
}
Die Syntax einer verschachtelten do...while-Schleifenanweisung:
do{
Anweisung(s);
do{
Anweisung(s);
}while( Bedingung );
}while( condition );
Die Syntax einer verschachtelten until-Schleifenanweisung:
until(Bedingung){
until(Bedingung){
statement(s);
}
statement(s);
}
Die Syntax einer verschachtelten foreach-Schleifenanweisung:
foreach $a (@listA){
foreach $b (@listB){
Anweisung(s);
}
Anweisung(s);
}
Beispiele
#!/usr/bin/perl
$a = 0;
$b = 0;
# äußere Schleife
while($a < 3){
$b = 0;
# innere Schleife
while( $b < 3 ){
print "a = $a, b = $b\n";
$b = $b + 1;
}
$a = $a + 1;
print "a = $a\n\n";
}
Das Ausführen des obigen Programms erzeugt die folgende Ausgabe:
a = 0, b = 0 a = 0, b = 1 a = 0, b = 2 a = 1 a = 1, b = 0 a = 1, b = 1 a = 1, b = 2 a = 2 a = 2, b = 0 a = 2, b = 1 a = 2, b = 2 a = 3Andere Erweiterungen