Perl技巧：理解流程控制

PERL提供了last、next和redo这几个语句来控制代码块内的执行流程。last语句退出代码块； next语句终止当前指令然后开始下一循环；而redo语句则重新开始循环代码块却并不重新计算条件语句。这三种控制语句还可以用标签来更准确地控制嵌套代码块的流程。下面就让我们仔细分析一下这些语句的工作原理。

Last、next和redo

清单A 中的示例演示了以上三种语句的行为。

清单A的执行结果如下：
in block - iteration 1
in block - iteration 2
past redo
in block - iteration 3
past redo

在第1个循环中，$redo被设置为1，而且redo也确实生效了，所以其输出结果是in block - iteration 1。在第2个循环里，$redo变成了2于是不再执行redo，所以输出结果是in block - iteration 2和past redo。因为$next设置为1，所以执行next语句，但代码块的其他部分并没有执行。在第2个循环里， $next变成了2，于是不执行next语句而执行last语句。最后的结果则变成in block - iteration 3和 past redo。

继续执行代码块的条件

我们已经讨论了last、next和redo语句在代码块内部的流程控制。但是不太为人所知的是execution代码块内还有个可选的continue块。continue块通常用在while或者for each语句下，当然，也可以用在普通代码块内。 continue块在条件被重新计算之前执行。类同于C语言下for循环的第3组成部分，它可以用作递增循环变量。

在清单B中，我们重构了清单A中的示例显示continue块的执行情况。

程序的执行结果如下：
in block - iteration 1
in block - iteration 2
past redo
continue
in block - iteration 3
past redo

输出结果表明在第1个循环中采用了redo语句的情况下没有执行continue代码块。在第2个循环中，执行next语句之后就接着执行了continue块而不是在last语句之后执行。