Perl语言入门

其他控制结构

｜

195

}

}

## last

之后就会跳到这里

##

只要输入行中有

__END__

记号，这个循环就会结束。当然，结尾的那行注释只是提醒

而已，完全可以省略。我们只是将它放在那里，好让整个流程更加清晰。

在

Perl

中有

5

种循环块，它们分别是

for

、

foreach

、

while

、

until

以及裸块。而

if

块或子程序带的花括号不是循环块。如同前面的例子，

last

操作符对整个循环块起作

用。

last

操作符只会对当前运行中的最内层的循环块发挥作用。要跳出外层块，请继续看

下去，我们很快就会提到。

next

操作符

有时候你并不需要立刻退出循环，但要立刻结束当前这次循环迭代。这就是

next

操

作符的用处，它会跳到当前循环块的底端。在

next

之后，程序将会继续执行循环的

下一次迭代（这和

C

这类语言中的

continue

操作符的功能相似）：

#

分析输入文件中的单词

while (<>) {

foreach (split) { #

将

$_

分解成单词，然后每次将一个单词赋值给

$_

$total++;

next if /\W/; #

如果碰到不是单词的字符，跳过循环的剩余部分

$valid++;

$count{$_}++; #

分别统计每个单词出现的次数

##

上面的

next

语句如果运行，会跳到这里

##

}

}

print "total things = $total, valid words = $valid\n";

foreach $word ...