过度使用//或必要的

Question

我遇到了以下遗留代码：

sub some_func {
    my $val = $ENV{some_key} // '';
    if ( length($val) ) {
        return $val;
    }

    return 0;
}

通常，我会认为这是复杂的，并将其改写为：

sub some_func {
    return $ENV{some_key} || 0;
}

但是写这篇文章的程序员相当不错。我是不是遗漏了什么？

Answer 1

原件：

• 空字符串⇒0(作为数字)
• 字符串零⇒零(作为字符串)
• 零号⇒零(作为一个数字)
• 未定义的⇒零(作为一个数字)

其他一切都返回$ENV{some_key}

重写：

• 空字符串⇒0(作为数字)
• 字符串零⇒零(作为一个数字)
• 零号⇒零(作为一个数字)
• 未定义的⇒零(作为一个数字)

其他一切都返回$ENV{some_key}

因此，有一个小的差别，这并不重要，但它确实在某些情况下(例如encode_json)。不过，我认为差别是无意的。