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);