Perl语言入门（第8版）

其他控制结构

｜

201

可是，我们不是才说过

$_

是用来存储每一行的输入么？在外层循环就是这样。但

在

foreach

循环里，它却能循环存储每一个单词。

Perl

能正确处理

$_

的多版本重

用，这种事并不奇怪。

对

foreach

循环来说，每当我们在

$_

中看到一个单词时，

$total

就会递增，所以它

会是全部单词的总数。下一行（是这个例子的关键）会检查单词里是否包含任何非单

词字符（字母、数字和下划线以外的字符）。因此如果其中出现了像

Tom's

、

full-

sized

或者后面紧接着逗号、引号或任何其他奇怪字符的单词，那它就会匹配这个模

式，导致循环直接跳到下一个单词。

不过如果找到了一个普通的单词，比如

fred

，在此情况下，我们会将

$valid

的值

加

1

，连带

$count{$_}

也累加以记录此单词出现的次数。所以，在这两个循环执行完毕

后，我们就完成了对用户指定的所有文件中的每一行里的每个单词的计数。

我们不打算解释最后几行的意思。到了这里，我们希望你已经有能力应付这样的程序

代码。

跟

last

一样，

next

也可以用在

5

种循环块中：

for

、

foreach

、

while

、

until

或裸

块。同样地，如果有多层的嵌套循环块，

next

只会对最内层起作用。这一节的最后，

我们将看到如何突破这种限制。

redo

操作符

循环控制操作符的第三个成员是

redo

。它能将控制返回到当前循环块的顶端，不经过

任何条件测试，也不会进入下一次循环迭代。而那些用过

C

这类语言的人却会对这个

操作符感觉陌生，因为那些语言里没有这个概念。来看具体的例子： ...