Perl ciclo nidificato

ciclo di Perl

linguaggio Perl consente l'uso di un altro ciclo in un ciclo illustra diversi esempi per illustrare questo concetto.

grammatica

Nidificato per la sintassi del ciclo:

for ( init; condition; increment ){
   for ( init; condition; increment ){
      statement(s);
   }
   statement(s);
}

Annidati mentre la sintassi del ciclo:

while(condition){
   while(condition){
      statement(s);
   }
   statement(s);
}

Annidata do ... while istruzioni sintattiche ciclo:

do{
   statement(s);
   do{
      statement(s);
   }while( condition );

}while( condition );

Fino sintassi ciclo nidificato:

until(condition){
   until(condition){
      statement(s);
   }
   statement(s);
}

Nidificato sintassi ciclo foreach:

foreach $a (@listA){
   foreach $b (@listB){
      statement(s);
   }
   statement(s);
}

Esempi

#!/usr/bin/perl

$a = 0;
$b = 0;

# 外部循环
while($a < 3){
   $b = 0;
   # 内部循环
   while( $b < 3 ){
      print "a = $a, b = $b\n";
      $b = $b + 1;
   }
   $a = $a + 1;
   print "a = $a\n\n";
}

Il programma precedente, l'uscita è:

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 = 3

ciclo di Perl