Perl 循環嵌套

作者：Eve Cole 更新時間：2025-01-03 13:24:01

Perl 語言允許在一個循環內使用另一個循環，下面示範幾個實例來說明這個概念。

文法

巢狀for 迴圈語句的語法：

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

嵌套while 迴圈語句的語法：

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

嵌套do...while 迴圈語句的語法：

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

嵌套until 循環語句的語法：

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

嵌套foreach 迴圈語句的語法：

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

實例

#!/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 " ; }

執行以上程序，輸出結果為：

 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