这段 perl 代码中 $_ 被修改在哪里？

Question

以下 perl 代码在 PerlCritic 中生成警告（由 Activestate）：

sub natural_sort {
    my @sorted;
    @sorted = grep {s/(^|\D)0+(\d)/$1$2/g,1} sort grep {s/(\d+)/sprintf"%06.6d",$1/ge,1} @_;
}

生成的警告是：

不要修改列表函数中的$_

有关该警告的更多信息请参见此处

我不理解该警告，因为我不认为我正在修改 $_，尽管我想我必须这样做。 有人可以向我解释一下吗？

Answer 1

您的两个 grep 都在修改 $_，因为您正在使用 s//。例如，这：

grep {s/(^|\D)0+(\d)/$1$2/g,1}

与此相同：

grep { $_ =~ s/(^|\D)0+(\d)/$1$2/g; 1 }

我认为您最好使用 map 因为您没有使用 grep 过滤任何内容，您只是使用 grep 作为迭代器：

sub natural_sort {
    my $t;
    return map { ($t = $_) =~ s/(^|\D)0+(\d)/$1$2/g; $t }
           sort
           map { ($t = $_) =~ s/(\d+)/sprintf"%06.6d",$1/ge; $t }
           @_;
}

这应该做同样的事情并且让批评者保持安静。您可能想看看 List::MoreUtils 如果您想要一些比普通 map 更好的列表运算符。

Answer 2

您正在 grep 中进行替换（即 s/// ），这会修改 $_ 即正在 grep 的列表。

Answer 3

这种情况和其他情况在 perldoc perlvar 中进行了解释：

这里是 Perl 会用到的地方
即使您不使用它，也假设 $_：

• 以下功能：

abs、警报、chomp、chop、chr、chroot、
cos、已定义、eval、exp、glob、十六进制、
int、lc、lcfirst、长度、日志、lstat、
mkdir、oct、ord、pos、打印、
quotemeta、readlink、readpipe、ref、
要求，反转（在标量上下文中
仅）、rmdir、sin、split（在其
第二个参数）、sqrt、stat、study、
uc、ucfirst、取消链接、解压。

• 除 -t 之外的所有文件测试（-f 、 -d ），默认为 STDIN。
  请参阅-X

• 模式匹配操作 m//、s/// 和 tr///（又名 y///）时
  不使用 =~ 运算符即可使用。

• 如果没有其他变量，则为 foreach 循环中的默认迭代器变量
  提供。

• grep() 和 map() 函数中的隐式迭代器变量。

• given() 的隐式变量。

• 操作结果时放置输入记录的默认位置
  单独测试
  一段时间测试的标准。外面
  在测试时，不会发生这种情况。

Answer 4

很多人都正确地回答了 s 运算符正在修改 $_，但是在即将发布的 Perl 5.14.0 中将会有新的 r s 运算符（即 s///r）的 code> 标志，它不会就地修改，而是返回修改后的元素。欲了解更多信息，请访问 有效的佩勒。您可以使用 perlbrew 来安装这个新版本。

编辑：Perl 5.14 现已推出！ 公告 公告 Delta

这是 mu 建议的函数（使用 map），但使用此功能:

use 5.14.0;

sub natural_sort {
    return map { s/(^|\D)0+(\d)/$1$2/gr }
           sort
           map { s/(\d+)/sprintf"%06.6d",$1/gre }
           @_;
}

Answer 5

其他答案忽略的非常重要的部分是，该行

grep {s/(\d+)/sprintf"%06.6d",$1/ge,1} @_;

实际上修改了传递给函数的参数，而不是它们的副本。

grep 是一个过滤命令，代码块内的 $_ 中的值是 @_ 中的值之一的别名。 @_ 又包含传递给函数的参数的别名，因此当 s/// 运算符执行其替换时，将对原始参数进行更改。这如以下示例所示：

sub test {grep {s/a/b/g; 1} @_}

my @array = qw(cat bat sat);

my @new = test @array;

say "@new";   # prints "cbt bbt sbt" as it should
say "@array"; # prints "cbt bbt sbt" as well, which is probably an error

您正在寻找的行为（应用将 $_ 修改为列表副本的函数）已被封装为 apply 函数在许多模块中。我的模块 List::Gen 包含这样的实现。 apply 自己编写也相当简单：

sub apply (&@) {
    my ($sub, @ret) = @_;
    $sub->() for @ret;
    wantarray ? @ret : pop @ret
}

这样，您的代码可以重写为：

sub natural_sort {
    apply {s/(^|\D)0+(\d)/$1$2/g} sort apply {s/(\d+)/sprintf"%06.6d",$1/ge} @_
}

如果重复替换的目标是应用瞬态修改来执行某种原始数据，那么您应该研究一个名为 Schwartzian 变换 的 Perl 习惯用法，这是实现该目标的更有效方法。