Perl中的真与假

Perl认为真值是自明的(self-evident),表示任何事物的真值都可以计算。Perl以实用的方式来定义真值，即一个实体的真值取决于这个实体的类型。Perl总是乐观的认为：这个世界上真的东西远比假的东西多的多。

Perl区别与任何其他计算机语言，Perl是语言学家创造的，而语言的意思离不开上下文语境，所以Perl中的真值都可以在标量(标量$与数组@类似于英文中的单数与复数， book 与 books的区别， 真值在现实世界中，应该就是单数，所以是标量)计算，除此之外，不会做任何类型的强制转换(比如在Python中int('42')来将含数字的字符型转换int类型，在Java中(int)'d'将字符型转为整型)。

对于标量中各种类型的值，规则如下:

• 字符型: 除了""和"0"，所有字符都是真(true)
• 数字型: 除了0外，所有数字都是true
• 引用型: 所有引用都为true(所有引用都会指向有地址的对象，这绝对不会为0，因为它肯定已定义)
• 未定义: 所有未定义值都是false

下面例子可以很好理解Perl中真、假的概念:

0           # 将转换为字符串"0"，所以为false
1           # 将转换为字符串"1"，所以为true
100 - 100   # 100-100等于0，这将转换为字符串"0"，所以为false
0.00        # 等于0，将转换为字符串"0"，所以为false
"0"         # 字符串"0"，所以为false
""          # 这是空串，所以为false
"0.00"      # 即不是""，也不是"0"，所以为true
"0.00" + 0  # 由+强制转换，计算结果为0，所以为false
$a         # 标量$a的引用，所以为true，即使$a为false也是如此。
undef()     # 是一个返回未定义值的函数，所以为false