Perl中&、|位运算正常但^异或跨平台异常问题咨询

核心原因：字符ASCII值的位运算特性差异 #

Perl的位运算符&、|、^处理字符串时，会逐字符对ASCII值执行位运算。字符串中的'0'（ASCII 0x30，二进制00110000）和'1'（ASCII 0x31，二进制00110001）的运算特性，让&、|刚好符合预期，而^完全不符合：

1. &和|的巧合适配 #

• '1' & '1' → 0x31 & 0x31 = 0x31 → 结果为'1'
• '1' & '0' → 0x31 & 0x30 = 0x30 → 结果为'0'
• '1' | '0' → 0x31 | 0x30 = 0x31 → 结果为'1'
• '0' | '0' → 0x30 | 0x30 = 0x30 → 结果为'0'
  这些结果刚好和二进制位运算逻辑一致，所以看起来“正常”。

2. ^的运算结果是不可见控制字符 #

• '1' ^ '1' → 0x31 ^ 0x31 = 0x00 → ASCII空字符（NUL），终端无显示
• '1' ^ '0' → 0x31 ^ 0x30 = 0x01 → ASCII标题开始符（SOH），Windows终端显示为☺，Linux终端无可见输出
  这就是跨平台输出差异的根源——不同系统对控制字符的渲染逻辑不同。

int($var1) ^ int($var2)失效的原因 #

int("11000001")会把字符串解析为十进制整数（值为11000001），而非二进制对应的193。两个十进制数的异或结果自然和你想要的二进制位运算结果无关。

正确实现二进制字符串位运算的方法 #

方法1：转二进制数值运算后转回字符串 #

先将二进制字符串转为Perl数值（用oct("0b$str")识别二进制），运算后再格式化为8位二进制字符串：

my $var1 = "11000001";
my $var2 = "10000101";

# 转换为二进制数值
my $num1 = oct("0b$var1");
my $num2 = oct("0b$var2");

# 执行位运算
my $and_result = $num1 & $num2;
my $or_result = $num1 | $num2;
my $xor_result = $num1 ^ $num2;

# 格式化为8位二进制字符串（补前导0）
printf "var1 & var2: %08b\n", $and_result;
printf "var1 | var2: %08b\n", $or_result;
printf "var1 ^ var2: %08b\n", $xor_result;

输出结果：

var1 & var2: 10000001
var1 | var2: 11000101
var1 ^ var2: 01000100

方法2：逐字符手动计算 #

直接遍历字符串的每个字符，按二进制逻辑计算异或：

my $var1 = "11000001";
my $var2 = "10000101";
my $xor_str = '';

for my $i (0 .. length($var1)-1) {
    my $bit1 = substr($var1, $i, 1);
    my $bit2 = substr($var2, $i, 1);
    $xor_str .= ($bit1 ne $bit2) ? '1' : '0';
}

print "var1 ^ var2: $xor_str\n";

同样能得到预期的01000100。

内容的提问来源于stack exchange，提问作者salonso