0

私は 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 を返すようです。誰がこれを解決できますか?

4

2 に答える 2