perl - 在 Perl 中检索 if 语句的过滤条件

Question

在 Perl 中有没有办法直接知道 if 语句中的哪个测试匹配？

例如，下面的代码将打印 $a:

my $a = 0;
my $b = 1;
if ($a == 0 or $b == 0)
{
    print $XXX ."\n";
}

有$XXX这样的变量吗？
或者唯一的方法是一次过滤每一个:

my $a = 0;
my $b = 1;
if ($a == 0)
{
    print $a ."\n";
}
elsif ($b == 0)
{
    print $b ."\n";
}

Answer 1

没有内置的东西，但你可以这样做:

my $which;
if (($a eq 0 && $which = '$a') or ($b eq 0 && $which = '$b')) {
  print $which, "\n";
}