【问题标题】:Comparing two undefs in PerlComparing two undefs in Perl
【发布时间】:2023-02-24 05:33:58
【问题描述】:

似乎比较 undef ne undef 返回 undef。 Perl 是否有惯用的方法将其转换为 perls“boolean”? 我还发现以下内容很奇怪:

undef ne undef || 0; # 0
(undef ne undef) || 0; # undef

请你解释一下,发生了什么事?

【问题讨论】:

  • 您可以直接使用 undef 作为假值。如果你想把它转换成 Perl 内置的假标量,你可以使用 notnot 伪运算符!!,例如!! undef

标签: perl boolean comparison logical-operators logical-or


【解决方案1】:

ne 返回特殊标量 true(内部称为 &PL_yes)或特殊标量 false (&PL_no),从不返回 undef。在这种特殊情况下,它返回falsefalse 是一个包含整数零、浮点数零和空字符串的标量。

ne 是一个字符串比较运算符。所以它首先将其操作数转换为字符串。将 undef 转换为字符串会生成空字符串,并发出警告。由于空字符串等于空字符串,ne 返回一个假值,特别是特殊的 false 标量。


虽然 ne 已经返回 Perl 的布尔值之一,但您询问如何获得这些值。

从值中获取 truefalse 的最简单方法是对其取反两次。

my $normalized = !!$x;

获取 1 if true 或 0 if false 的最简单方法是使用条件运算符。

my $normalized = $x ? 1 : 0;

【讨论】:

  • 您还可以使用my $bool = 0+!! $x;获得10
  • @tobyink 我想,但我说的是最简单的。 :) 此外,您应该修复误导性间距。它使您看起来可以做到0+!! EXPR,但事实并非如此。
猜你喜欢
  • 2022-12-02
  • 1970-01-01
  • 2022-12-01
  • 1970-01-01
  • 2022-12-27
  • 1970-01-01
  • 2022-11-20
  • 2022-12-02
  • 2022-12-01
相关资源
最近更新 更多