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

Question

这是一段常见的示例代码:

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

永远打印“foo”。

perl foo.pl
foo
foo
foo
...

和

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

如你所料，悄然死去:

perl test.pl

有人能解释一下为什么这是一个有用的 while 实现吗？这至少适用于 5.10、Unix 和 MacOS X:

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

这给

foo
foo
foo
...

Answer 1

如果有的话，可以说 -1比 1 更有可能为真自 -1 ( 111..111b ) 是零 ( 000..000b ) 的按位求反。 BASIC 和 GW-BASIC 在需要返回真值时使用 -1。

无论如何，Perl 认为表示“空”或“无”的值是错误的。大多数语言都持有类似的观点。具体来说，整数零、浮点零、字符串零、空字符串和 undef 都是假的。

这是 documented ，尽管文档措辞不佳。 (它列出了 () 作为一个错误的值，但没有这样的值。)

除了一致性之外，采用这种方法非常有用。例如，它允许一个人使用

if (@x)

而不是

if (@x != 0)