perl 逻辑或运算符

Question

#!/usr/bin/perl

$v = "test";
$v |= "best";
print $v;
$v =  "test" | "best";
print $v;

在第二种情况下 OR-ing 是如何出现的并不清楚（第一种情况是 oring with null 似乎很清楚）？

Answer 1

| 是按位的 operator 并且您不想将字符串短路到变量，因此使用逻辑 OR ||

$v ||= "best";

第一个字符"t" | "b"的按位计算与

#             116  | 98        = 118 ("v")
print chr(ord("t") | ord("b"));