1.6.1 什么是真 ? BACKWARDFORWARD


我们已谈论到术语真[1], 并且我们提到某类操作符返回真或假值。在我们继续以前,真应该确切地解释那是什么意思。Perl对待"真"有点不同于多数计算机语言, 但在你用它一段时间后, 你将有许多感受(事实上, 我们希望你读完下面后感受到许多)。

Perl基本上保留"真"是"自显的"。那就是说你能计算几乎任何真值。Perl根据你计算的类型使用真的实际定义。真比非真有许多种类型。

Perl中, 真总是在一个标量上下文被计算。(否则, 不做类型强制)所以, 这儿有对于一个标量所能保留各类值的规则:

1. 除了""和"0"以外, 任何字符串都是真的。

2. 除了0以外, 任何数字都是真的。

3. 任何引用都是真的。

4. 任何无定义的值都是假的。

实际上,后两个规则能从前两个导出。任何引用(规则3)都指向一个地址, 并计算包含这个地址的一个数字或一个字符串, 这个地址永远不是0。并且任何无定义的值将总是0或空串。

以某种方式,如果你假设每个事都是一个串, 你能从规则1导出规则2。为计算真, 实际上没有强制, 但如果对串做强制, 那么0的任何数字值将转为字符串"0", 并且是假。任何其他数字将不转为字符串"0", 所以是真。让我们看些例子,这样我们能更明白一点儿:

0      #将成为字符串"0", 所以是假

1      #将成为字符串"1", 所以是真

10-10    #10-10是0, 将转为字符串"0", 所以是假

0.00     #成为0, 将转为字符串"0", 所以是假

"0"     #字符串"0", 所以为假

""      #一个空串, 所以为假

"0.00"    #字符串"0.00", 既不是空又不是"0", 所以为真

"0.00" + 0 #数字0(被加号强制), 所以是假

a      #对$a的一个引用, 所以甚至$a为假, 结果为真

undef()   #返回无定义的一个函数, 所以为假

自从我们以前谈论到真是在一个标量上下文被计算的以来, 你可能一直想知道一个表的真值是什么。简单的事实是,在Perl的一个标量上下文中, 没有操作返回一个表。相反,他们都返回一个标量值,然后对这个标量值应用规则。所以没有问题,只要你能想出任何给定操作符在一个标量上下文将返回什么。

if和unless语句

前面, 我们看到一个逻辑操作符怎样象一个条件一样起作用。逻辑操作符的更复杂形式是if语句。if语句计算一个真的条件, 并且条件为真时, 执行一个block。

一个block是由一对括号包括的一个或多个语句。因为if语句执行一个block, 所以根据定义要有括号。如果你知道象C一样的语言, 你将注意这是不同的。在C中括号是可选的, 如果你只有一行程序, 但在Perl中, 他们不是可选的。

if ($debug_level > 0) {

  # 提示行, 告诉用户错误新息

  print "Debug: Danger, Will Robinson, danger!";

  print "Debug: Answer was '54', expected '42'.\n";

}

有时, 当条件满足时只执行一个block, 这是不够的。如果条件不满足时,你也 想执行一个不同的block。当然你能使用两个if语句, 一个条件是另一个条件的相反条件, 而Perl提供一个更好的方法。在block之后, if能有第二个选择条件, 称为else, 只有真条件为假时, 才被执行。(老练的编程者对这点不惊奇)

其他时候, 你甚至有多于两个的可能选择。这时,你将想为另一个可能的选择加一个elsif的真条件。(老练的编程者可能被这个elsif的发音感到惊奇, 这儿没有人道歉。)

if ($city eq "New York") {

  print "New York is northeast of Washington, D.C.";

}

elsif ($city eq "Chicago") {

  print "Chicago is northwest of Washington, D.C.";

}

elsif ($city eq "Miami") {

  print "Miami is south of Washington, D.C. And much warmer!";

}

else {

  print "I don't know where $city is, sorry.";

}

if和elsif从句是按次序计算的, 直到某个条件为真或else条件满足。当某个条件为真时,执行相应的block并且跳过其余分支。有时,如果条件为真时, 你不想做任何事情, 只有条件为假时才做。使用一个空if和一个else是麻烦的, 而一个相反的if是不合法的; 这是在说" 如果这个不是真时, 做事情"。在这种情况,你将使用unless语句。

unless ($destination eq $home)

  print "I'm not going home.";

这儿没有"elsunless"。


Copyright: NPACT BACKWARDFORWARD