我的 $_ 吗？如果隐含 $_ 则执行任何操作

Question

我认为答案是肯定的，但我只是想确定一下。那么，如果我有

sub something {
    my $_;
    my @array = ...;
    while ( @array ) {
        say;
    }
}

my $_; 实际上可以有效地词汇化传递给 say 的参数吗？

在这种特殊情况下，我使用 DZP::UnusedVarsTests 并抱怨我没有使用 my $_; 并且我怀疑这是一个错误，因为我在隐含的情况下使用它。

Answer 1

简短的回答是肯定的。它使该作用域中的函数使用词法作用域 $_，而不是全局 $_。如果他们写回 $_，就像 s/// 的情况一样，您将获得一定程度的损害控制。

根据 perldoc perldelta (5.10.0) ：

“List::Util::first”在存在词法 $_ 时行为不当（通常由“my$_”或隐式地通过“given”）。每次迭代设置的变量是包变量 $_，而不是词法 $_ [RT #67694]。

类似的问题可能会出现在提供将块作为第一个参数的函数的其他模块中，例如

foo { ... $_ ...} 列表

perldoc perl591delta 它接着说：

词法 $_

默认变量 $_ 现在可以通过如下声明来进行词法化：
任何其他词汇变量，带有
简单

<前><代码>我的$_;

$_ 上默认的操作将使用 $_ 存在的词法范围版本，而不是全局 $_ >.

在“map”或“grep”块中，如果$_以前是my' ed，那么块内的 $_ 也是词法的（并且作用域为块）。

在 $_ 已词汇化的范围内，您仍然可以使用 $::_ 访问 $_ 的全局版本code>，或者更简单地说，用“our $_”覆盖词法声明。

示例

我想提供一些示例来说明为什么要使用此功能：

my $_ = 'BOOM!';

sub something {
    my $_;                         ## Try running with and without
    my @array = qw/foo bar baz/;
    while ( $_ = pop @array ) {
        say;
    }   
}   

something();

say;

并且，另一个示例

my $_ = 'foo';

sub something {
  my $_ = $_;  ## Try running with and without
  s/foo/bar/;
  $_;
}

something();

say;