Boucles imbriquées Perl
Boucles PerlLe langage Perl permet d'utiliser une boucle à l'intérieur d'une autre boucle. Les exemples suivants illustrent ce concept.
Syntaxe
La syntaxe d'une instruction de boucle for imbriquée :
for ( init; condition; increment ){
for ( init; condition; increment ){
statement(s);
}
statement(s);
}
La syntaxe d'une instruction de boucle while imbriquée :
while(condition){
while(condition){
statement(s);
}
statement(s);
}
La syntaxe d'une instruction de boucle do...while imbriquée :
do{
instruction(s);
do{
instruction(s);
}while( condition );
}while( condition );
La syntaxe d'une instruction de boucle until imbriquée:
until(condition){
until(condition){
statement(s);
}
statement(s);
}
La syntaxe d'une instruction de boucle foreach imbriquée:
foreach $a (@listA){
foreach $b (@listB){
instruction(s);
}
instruction(s);
}
Exemples
#!/usr/bin/perl
$a = 0;
$b = 0;
# boucle externe
while($a < 3){
$b = 0;
# boucle interne
while( $b < 3 ){
print "a = $a, b = $b\n";
$b = $b + 1;
}
$a = $a + 1;
print "a = $a\n\n";
}
L'exécution du programme ci-dessus produit la sortie suivante :
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 = 3Autres extensions