Le langage Perl permet d'utiliser une boucle au sein d'une autre boucle. Voici quelques exemples pour illustrer ce concept.
Syntaxe des instructions de boucle for imbriquées :
pour ( initialisation ; condition ; ) { pour ( initialisation ; condition ; ) { déclaration ( s ) ; déclaration ( s ) ;Syntaxe de l'instruction de boucle while imbriquée :
pendant que ( condition ) { pendant que ( condition ) { déclaration ( s ) ; déclaration ( s ) ;Syntaxe des instructions de boucle imbriquées do...while :
faire { instruction ( s ) ; faire { instruction ( s ) } while ( condition ) ; } alors que ( condition ) ;Syntaxe des instructions de boucle imbriquées jusqu'à :
jusqu'à ( condition ) { jusqu'à ( condition ) { déclaration ( s ) ; déclaration ( s ) ;Syntaxe de l'instruction de boucle foreach imbriquée :
pour chaque $un ( @listA ) { pour chaque $b ( @listB ) { déclaration ( s ) ; déclaration ( s ) ;En exécutant le programme ci-dessus, le résultat de sortie est :
a = 0, b = 0a = 0, b = 1a = 0, b = 2a = 1a = 1, b = 0a = 1, b = 1a = 1, b = 2a = 2a = 2, b = 0a = 2, b = 1a = 2, b = 2a = 3