Perl xor返回意外結果

Question

這里發生了什么？ 為什么不是$ c == 1？

$ cat y.pl
#!/usr/bin/perl
$a = 0;
$b = 1;
$c = $a xor $b;
print "$a ^ $b = $c\n";

$ ./y.pl 
0 ^ 1 = 0

Answer 1

一直用

use strict;
use warnings qw( all );

它會檢測到您的優先問題。

Useless use of logical xor in void context

特別，

$c = $a xor $b;

手段

($c = $a) xor $b;

運算符and ， or ， not和xor優先級非常低。 這使得and ， or和not流控制是非常有用的。

... or die ...;
... or next;

xor不會短路，因此對流量控制沒有用。 xor是出於完全不同的原因而創建的。 喜歡or ， xor是一個邏輯運算符。 這意味着將整個操作數的真實性視為整體而不是逐位比較。 我不相信這是你想要的操作。

固定：

$c = $a ^ $b;

---

                                    Low
                                    Precedence
Operation   Bitwise     Logical     Logical
----------  ----------  ----------  ----------
NOT         ~           !           not
AND         &           &&          and
OR          |           ||          or
OR*         N/A         //          N/A
XOR         ^           N/A         xor

OR* - Like OR, but only undefined is considered false.

Answer 2

賦值的優先級高於xor。 寫吧：

$c = ($a xor $b);