我正在尝试执行此代码。令我困惑的是，为什么这个比较在 false 时不返回任何值。这是这些比较运算符的默认行为吗？
my $output = (2 <= 1);
print "value=$output";
当逻辑检查失败时，比较运算符是否会返回undef？
【问题讨论】：
标签： perl
返回 1 表示 true 和定义的空字符串的特殊版本 "" ，它算作零，但不会收到有关不正确数字转换的警告，就像 "0 but true" 一样。
你得到的值实际上是一个双变量。它具有单独的数字和字符串值（实际上不是空字符串的特殊版本）。数值为 0，字符串值为空字符串。您使用了字符串部分，它是空的，但 0 仍然存在。您可以使用Devel::Peek 查看变量记录：
use Devel::Peek;
my $result = ( 1 == 2 );
Dump( $result );
在幕后的SV（标量值）这件事中，你看到PV中的字符串值和IV中的数值和NV（整数和数值）：
SV = PVNV(0x7fe602802750) at 0x7fe603002e70
REFCNT = 1
FLAGS = (PADMY,IOK,NOK,POK,pIOK,pNOK,pPOK)
IV = 0
NV = 0
PV = 0x7fe6026016b0 ""\0
CUR = 0
LEN = 16
还有其他种类的双变量。例如，$! 错误变量具有错误编号和错误文本（我在Mastering Perl 中谈到了这一点）。这不是您通常需要担心的事情，因为 Perl 为上下文做了正确的事情。
如果您总是想要一个数值，请在数值上下文中使用它：
my $numeric = 0 + $result; # 0
您可以使用Scalar::Util 的dualvar 创建自己的双变量，并且可以使用isdual 检查标量是否是双变量。
use Scalar::Util qw(isdual);
my $result = ( 1 == 2 );
print isdual($result) ? "dualvar" : "Not dualvar";
如果您想检查您返回的值是否已定义（您说没有），您可以通过defined 进行检查。但是，定义了一个空字符串。如果要检查它是否不是空字符串，可以使用length。当您拥有的值不可打印时，这些会有所帮助。
【讨论】：
!!1（真）或!!0（假）。
!!( 2==1 ) 不起作用。你仍然得到空字符串。这就是我使用0 + $result的原因。
布尔运算符在 true 时返回 1，在 false 时返回 ''。您正在尝试打印空字符串。
试试这个测试
use strict;
use warnings;
my $output = (2 <= 1);
print $output ? "value=|$output|" : "value=<$output>";
【讨论】：
$output 总是被定义而不是 undef
perl -MJSON -e 'print encode_json([ 1==2 ])'
Comparisons 可以返回一个特殊的 false 值，它是一个空字符串或 0，具体取决于评估它的上下文。如果您正在寻找 true 和 false 的特定值，使用这样的语句会更安全：
my $output = ( 2 <= 1 ) ? 1 : 0;
以下代码将说明特殊 false 值的行为。
use 5.014;
say ( 2 <= 1); # prints nothing
my $output = ( 2 <= 1 ) ? 1 : 0;
say $output; # prints 0
$output = ( 2 > 1 ) ? 1 : 0 ;
say int $output; # prints 1
say $output; # prints 1
$output = ( 2 <= 1 ) ;
say int $output ; # prints 0
如果您不熟悉 ? ：构造见：http://perldoc.perl.org/perlop.html#Conditional-Operator
【讨论】：
int 将所有非数字变为 0，并设置 IV 和 NV 部分以创建双变量。 :)
int 对数值比较的结果没有任何特殊的作用。给它'abc'，它会返回0，但也会保留'abc'。
该表达式返回一个空字符串 ("")，Perl 在评估像 if 或 unless 这样的句子时将其视为错误值。
在 Perl 中，0、"0" 和空字符串 ("") 为 false。 undef 也是错误的，但您可能会收到警告。其他都是真的。
【讨论】：