Perl语言入门

185

第

10

章

其他控制结构

本章你会看到其他编写

Perl

程序的方式。总的来说，这些技术并不会提升

Perl

语言

本身的威力，但用来完成任务、解决问题还是非常轻松容易的。你不一定要在自己的

程序中使用这些技术，不过可别因此小看这些内容，迟早你都会在别人的程序代码中

看到这些控制结构（事实上，读完本书前，你肯定会看到这些技术的实际用例）。

unless

控制结构

在

if

控制结构中，只有当条件表达式为真时，才执行某块代码。如果你想让代码块

在条件为假时才执行，请把

if

改成

unless

：

unless ($fred =~ /\A[A-Z_]\w*\z/i) {

print "The value of \$fred doesn't look like a Perl identifier name.\n";

}

使用

unless

意味着，除非（

unless

）执行条件为真，否则就执行里面的代码。这就好

像使用

if

控制结构来判断相反的条件。另一种说法是它类似于独立的

else

子句。也

就是说，当看不懂某个

unless

语句时，你总可以用下面这样的

if

控制结构等价表示

（心里默默转换也好，实际改写也罢）：

if ($fred =~ /\A[A-Z_]\w*\z/i) {

#

什么都不做

} else {

print "The value of \$fred doesn't look like a Perl identifier name.\n";

}

这么做与运行效率高低无关，两种写法应该会被编译成相同的内部字节码。另外一个 ...