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 = $bn"; $b= $b+ 1; } $a= $a+ 1; print"a = $ann";}

执行以上程序，输出结果为：

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