在Perl中初始化标量变量时是否允许使用布尔运算符？

Question

例如,我可以这样写:

my $var = "A" || "B";

哪里($var eq "A")和($var eq "B")都会评价为真？如果没有,有什么方法可以解决这个问题吗？

Answer 1

您在寻找Quantum :: Superpositions吗？

更新:一个例子.

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Quantum::Superpositions;

my $var = any('A', 'B', 'C');

for ('A', 'B') {
  if ($var eq $_) {
    say "\$var equals $_";
  } else {
    say "\$var doesn't equal $_";
  }
}

输出:

$var equals A
$var equals B
$var doesn't equal C