なぜPerlは-1が真だと思いますか？

Question

これは一般的なコード例です。

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 
... 

Answer 1

どちらかといえば、一つは-1が-1以来1よりも真である可能性が高い（111..111bを）言うことができるゼロ（000..000b）のビット単位の否定です。 BASICとGW-BASICは真の値を返す必要があるときに-1を使用しました。

に関係なく、「空」または「無」を意味する値はfalseであると判断されました。ほとんどの言語も同様の見方をしています。具体的には、整数ゼロ、浮動小数点数ゼロ、文字列ゼロ、空文字列およびundefはfalseです。

これは​​ですが、ドキュメンテーションの言葉の意味はよくありません。 （()の値はfalseですが、そのような値はありません）

このアプローチをとることは非常に便利です。例えば、それは1つが代わりにPerlがawkとCからこの行動を取った

if (@x != 0) 

Answer 2

を与えます。 0は常にfalse

Answer 3

0の整数のみが偽とみなされます。他のゼロ以外の整数は真とみなされます。

Answer 4

任意の整数<> 0です。 0は常にfalseです。 perldoc perlsyn (Truth and Falsehood)から

Answer 5

：

番号0、文字列 '0' と ''、空のリスト（）、およびundefを はブールコンテキスト内のすべての偽です。その他の値はすべてtrueです。

-1とみなされます。

Answer 6

質問はです。なぜperlは-1が真だと思いますか？。

答えは、特定の値がfalseと評価されると判断されたperlが開発されたときです。これらは次のとおりである：

• undefを
• '' 私は理由のような適当な答えを考えることができるすべてである（空の文字列）

。それはちょうどそのように設計されました。

Answer 7

の

if (@x) 

を使用することができます。

なぜCであるか説明されていますhereです。