Perl:还有比 $var = $_; 更好的东西吗？

Question

这不是重要的问题，我知道，buuut $var = $_;看起来很蹩脚，有没有更好(更短)的方法来完成这项任务？

澄清我的问题:我知道我可以使用 $_在代码中很容易(这就是我喜欢它的原因)，但有时我需要存储 $_并在 $_ 上做点什么然后取回 $_ 的旧值(例如)。

Answer 1

在新的词法范围内，您可以本地化 $_，这将防止该范围内的任何修改影响该范围外的值。

有必要举一个例子来说明:

$_ = 1;
say;
{ # open a new scope
    local $_ = 3;
    $_++;
    say;
} # close the scope
say;

这应该打印

1
4
1

我发现它对于编写在内部广泛使用 $_ 的函数非常宝贵，因为我不喜欢它们在周围的范围内破坏 $_ 。但是，您也可以使用它来“搁置”一个变量并使用它的新版本一段时间。