Aninhamento de loop Perl

Autor：Eve Cole Data da Última Atualização：2025-01-03 13:24:01

A linguagem Perl permite o uso de um loop dentro de outro loop. Aqui estão alguns exemplos para ilustrar este conceito.

gramática

Sintaxe para instruções de loop for aninhadas:

para ( condição de inicialização ; ) { para ( condição de inicialização ; ) { declarações ) ; } declarações ) ; }

Sintaxe da instrução de loop while aninhada:

enquanto ( condição ) { enquanto ( condição ) { declarações ) ; } declarações ) ; }

Sintaxe de instruções de loop do...while aninhadas:

fazer { instrução ( ões ) ; instrução ( ões ) } enquanto ( doença ) ; } enquanto ( doença ) ;

Sintaxe para instruções de loop até aninhadas:

até ( condição ) { até ( condição ) { declarações ) ; } declarações ) ; }

Sintaxe da instrução de loop foreach aninhada:

foreach $a ( @listaA ) { foreach $b ( @listaB ) { declarações ) ; } declarações ) ; }

Exemplo

#!/usr/bin/perl $a = 0 ; $b = 0 ; # Loop externo enquanto ( $a < 3 ) { $b = 0 ; # ciclo interno enquanto ( $b < 3 ) { imprimir " a = $ a , b = $ b n " ; $a = $ a + 1 ; " uma = $a n n " ;

Executando o programa acima, o resultado de saída é:

 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