Perl中是否有内置的true/false布尔值？

Question

可能重复：
How do I use boolean variables in Perl?

[root@ ~]$ perl -e 'if(true){print 1}' 
1 
[root@ ~]$ perl -e 'if(false){print 1}' 
1 

我既惊讶和true通过false的if ...

Answer 1

始终使用警告，尤其上一个-liners。

Perl有没有真的还是假的命名常量，没有警告或严格启用“裸词”（的东西，可能是一个常数或功能，但没有）被悄悄解释为字符串。所以，你在做if("true")和if("false")，而且比其他所有字符串""或"0"是真实的。

Answer 2

如果严格运行：

perl -Mstrict -e 'if(true) { print 1 }' 

，你会得到的原因：

Bareword "true" not allowed while "strict subs" in use at -e line 1. 

它被解释为字符串"true"或"false"这是总是如此。常量并不在Perl定义的，但你可以自己做：

use constant { true => 1, false => 0 }; 
if(false) { print 1 } 

Answer 3

您正在使用裸字true和false。光秃秃的话是一件坏事。如果你试试这个：

use strict; 
use warnings; 
if (true){print 1} 

你可能会得到这样的事情：

Bareword "true" not allowed while "strict subs" in use at - line 3. 
Execution of - aborted due to compilation errors. 

所定义的任何值并不像0被认为是“真实的”。任何未定义的值或看起来像0（如0或"0"）的任何值被认为是“假”。这些值没有内置关键字。你可以只用0和1（或粘在use constant { true => 1, false => 0};如果你感到困扰。:)