为什么Perl认为-1是真的？

这是一个常见的示例代码：

while (1) { 
    print "foo\n"; 
}

它永远打印“foo”.

perl foo.pl
foo
foo
foo
...

和

while (0) { print "foo\n"; }

像你所期望的那样安静地死去

perl test.pl

有人可以解释为什么这是一个有用的实现？至少在5.10上工作,Unix和MacOS X：

while (-1) { print "foo\n"; }

这使

foo
foo
foo
...

解决方法

如果有什么,可以说-1更可能是真的,因为-1(111..111b)是0的逐位否定(000..000b). BASIC和GW-BASIC在需要返回真值时使用-1.

无论如何,Perl认为意味着“空”或“无”的价值是虚假的.大多数语言也有类似的看法.具体来说,整数为零,浮点零,字符串为零,空字符串和undef为false.

这是documented,尽管文档措辞不好. (It list()作为一个值为false,但没有这样的值.)

除了一致性,采取这种方法是非常有用的.例如,它允许使用

if (@x)

代替

if (@x != 0)