私は perl を初めて使用し、最近、理解できない問題を発見しました。
これが私のコードです
my ($a, $b, $c);
$a = 1.11;
$b = 2.22;
$c = 0;
if ( (0, 0, 0) == ($a, $b, $c))
{
return true;
}
else
{
return false;
}
そして、結果は非常に興味深いものに見えます。$c = 0 を代入すると ($a と $b は 0 ではありません)、この if ステートメントは true を返しますが、$a または $b を 0 に設定しようとすると、このステートメントは false を返します。
このステートメントの目的は、$a、$b、$c がすべてゼロかどうかを確認することですが、 $c = 0 の場合はいつでも true を返すようです。誰がこれを解決できますか?