Perl'de yerleşik bir doğru/yanlış boole değeri var mı?

Question

Olası Çoğalt:
How do I use boolean variables in Perl?

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

ben hem true ve falseif geçer şaşırdım ... Her zaman

Answer 1

uyarılarını kullanın özellikle birini karşılayan -liners.

Perl'in doğru veya yanlış adlandırılmış sabitleri yoktur ve uyarılar veya sıkı bir şekilde etkinleştirilmemiş bir "bareword" (bir sabit veya işlev olabilir ama olmayan bir şey) sessiz olarak bir dize olarak yorumlanır. Yani if("true") ve if("false") yapıyor ve dışındaki tüm dizeleri "" veya "0" doğrudur.

Answer 2

Eğer sıkı ile çalıştırırsanız:

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

Bu dize "true" ya da her zaman doğrudur "false" olarak yorumlanır:

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

sen nedenini tanınacak. sabitleri Perl tanımlanmamış, ancak bunu kendiniz yapabilirsiniz:

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

Answer 3

Sen barewords true ve false kullanıyor. Çıplak sözler Kötü bir şeydir. Eğer bu deneyin:

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

Herhangi tanımlı değeri 0 benzemiyor "gerçek" olarak kabul edilir:

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

Muhtemelen böyle bir şey alırsınız. Tanımsız bir değer veya 0 (örneğin 0 veya "0") benzer bir değer "yanlış" olarak kabul edilir. Bu değerler için yerleşik bir anahtar kelime yok. Gerçekten sizi rahatsız sadece 0 ve 1 kullanmak (veya use constant { true => 1, false => 0}; sopa olabilir. :)