为什么 Perl 的这一行本身只包含一个变量？

Question

我越深入越喜欢 Perl，但我对在我正在查看的模块的子例程中看到的一行有疑问。

my $var = 1;
....
....
....
....
$var;

让我感到困惑的是看到 $var 独自在一行上。这只是返回 1 的迂回方式吗？

非常感谢！

简

Answer 1

在 perl 中，块的值是块中最后一个表达式的值。这只是 return $var 的简写。

编辑：纯粹主义者指出，块一般不会返回值（例如，像 Scala 中那样），因此您不能编写：

my $x = if (cond) { 7 } else { 8 };  # wrong!

子例程、eval 或 do FILE 的隐式返回值是最后计算的表达式。不过，最后一个表达式可以位于块内：

sub f {
    my $cond = shift;
    if ($cond) { 7 } else { 8 }  # successfully returns 7 or 8 from f()
}

if/else 块表面上看起来返回一个值，尽管严格来说，它们并不返回值。

Answer 2

引用 perldoc -f return 的最后一行：

在没有显式返回的情况下，子例程、eval 或 do FILE 会自动返回最后计算的表达式的值。