Perl中的控制结构

　　这一段程序打印出3，好像很无聊是吧？但是有时候会有用的。这里有一个需要注意的是在until 里面有一个$a++。没有这个就会……555，死循环了。

　　今天继续剩余的程序流程控制，有next、last、redo这么几个语句。next相当于c语言中的continue，就是中止本次循环的过程，开始下一次循环。我们可以参照下面 的例子来理解它：

　　　#!/usr/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $x;
　　　 for($x=0;$x<10;$x++)
　　　　　 {
　　　　　　 if($x==3)
　　　　　　　　　 { next;}
　　　　　　　　　 print "$x ";
　　　　　 }
　　　 }

　　会打印出0 1 2 4 5 6 7 8 9，当到了3的时候就next了，呵呵。next还可以和标号结合使用退出某一层循环。如下面的例子。

　　　#!/usr/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $x;
　　　 my $y;
　　　 here:　　　　　　　#　here是一个标号
　　　　 for($x=0;$x<5;$x++)
　　　　　 {
　　　　　　 for($y=1;$y<3;$y++)
　　　　　　　　 { if($x==3)
　　　　　　　　　　　 { next here; }
　　　　　　　　　　　 print "$x ";
　　　　　　　　 }
　　　　　　 print " ";
　　　　　 }
　　　 }

　　将会打印 0 0 1 1 2 2 4 4，到3的时候跳过标有here标号的循环。

　　last相当于c语言中的break，就是跳出循环。例如下面的代码：

　　　#!/usr/bin/perl -w
　　　 use strict;
　　　 { my $x;
　　　 for($x=0;$x<10;$x++)
　　　　　　 {
　　　　　　　 last if($x==3);
　　　　　　　 print "$x ";
　　　　　　 }
　　　 }