perl 如何将 bool 值强制为 0/1

Question

我试图在真/假值中获得 0 或 1。这是代码:

use strict;
my %h = (Y => "y");
my $bool_x = 1 & exists $h{X};
my $bool_y = 1 & exists $h{Y};
print("x $bool_x y $bool_y\n");

我需要添加“1 &”以强制它不是空字符串。有一个更好的方法吗？我意识到这是 perl 打印假值方式的产物，但我需要它是 0 而不是空字符串。

Answer 1

最有效的方法是:

$bool || 0