我开始非常喜欢 C# 的 ?? 运算符。而且我已经习惯了这样一个事实，即在某些语言中有一些方便的地方，它很可能也在 Perl 中。
但是，我找不到？？ Perl 中的等价物。有吗？
【问题讨论】：
$a ?? 5 与 $a != null ? $a : 5 相同，这意味着如果 $a 不为 NULL，则表达式的结果为 $a，否则结果为 5。如果为 null，则验证为默认值$a = $a ?? 5 很有用。
标签： c# perl null-coalescing-operator
这个问题暗示了任意数量的参数，所以答案暗示了一个子程序：
你明白了 - 将返回列表的第一个定义/非空字符串值：
sub coalesce { (grep {length} @_)[0] }
【讨论】：
//也应该可以。
从 5.10 开始，有 // 运算符，如果您认为 Perl 中的 undef 概念等同于 C# 中的 null 概念，则它在语义上是等效的。
示例 A：
my $a = undef;
my $b = $a // 5; # $b = 5;
示例 B：
my $a = 0;
my $b = $a // 5; # $b = 0;
【讨论】：
defined($a) ? $a : $b，它可以完成工作并且读起来足够清晰。
与Adam says 一样，Perl 5.10 有一个// 运算符来测试其左手运算符的定义性而不是真实性：
use 5.010;
my $value = $this // $that;
如果您使用的是早期版本的 Perl，那就有点乱了。 || 不起作用：
my $value = $this || $that;
在这种情况下，如果$this 为0 或空字符串，两者都已定义，您将得到$that。为了解决这个问题，习惯用法是使用条件运算符，以便您可以进行自己的检查：
my $value = defined( $this ) ? $this : $that;
【讨论】：
实际上，短路 OR 运算符在评估 undef 时也可以工作：
my $b = undef || 5; # $b = 5;
但是，当评估为 0 但为真时，它会失败：
my $b = 0 || 5; # $b = 5;
【讨论】：
我不知道。
Perl 并不是 null 概念的真正大用户。它确实对变量是否未定义进行了测试。没有像 ?? 这样的特殊运算符不过，您可以使用条件 ?: 运算符与 undef 测试并获得非常接近。
我也没有在 perl operator list 中看到任何内容。
【讨论】：