在 perl 中使用 foreach 代替 map 和 grep

Question

my @a_columns = map { s/^"|"$|\n|\r|\n\r|"//g; $_ } split /;/, $s_act_line;

上面提到的是我的代码。由于使用了地图功能，我在合并此代码时收到自动警告。 请帮助我使用 for 或 foreach 或任何循环来转换它。

我已经尝试了几种方法，但都不适合我。

请帮帮我

Answer 1

警告似乎跟在 Perl::Critic 后面（尽管它似乎是由您的 IDE 发出的）。

map 以及grep 和foreach 中的变量$_ 是当前处理的数组元素的别名。所以一旦它被改变，input 数组就会改变！这通常是不需要的，并且通常可以肯定地被认为是一种棘手的做法，因此发出警告。

但在这种情况下，map 的输入是由split 生成的列表，用于您的变量。因此map 块中的代码无法通过更改$_ 来更改您的变量。那么将Perl::Ciritic告诉ignore这个语句就安全了

my @a_columns = 
    map { s/^"|"$|\n|\r|\n\r|"//g; $_ } split /;/, $s_act_line;  ## no critic

或不止一个陈述

## no critic

... code that Perl::Critic should ignore

## use critic

如果警告确实是由 Perl::Critic（而不是 IDE）产生的，则应该停止它。

更好的是，map 块中使用的习语在 Perl 5.14 版本中不需要，因为我们得到了non-destructive substitution。有了它s///r 返回改变的字符串，保持原来的不变。所以你可以这样做

my @a_columns = map { s/^"|"$|\n|\r|\n\r|"//gr } split /;/, $s_act_line;

这也更干净。现在Perl::Critic 不应该标记这个。

Answer 2

问题是您正在修改map 中的$_，这意味着您正在修改传递给map 的值。这可能会带来惊喜。切换到for 也无济于事。

在这种情况下它实际上是无害的，因为 split 返回临时值，但以下是“干净”的替代方案：

my @a_columns =
   map { ( my $tmp = $_ ) =~ s/^"|"$|\n|\r|\n\r|"//g; $tmp }
      split /;/, $s_act_line;

use List::MoreUtils qw( apply );

my @a_columns =
   apply { s/^"|"$|\n|\r|\n\r|"//g; }
      split /;/, $s_act_line;

my @a_columns =
   map { s/^"|"$|\n|\r|\n\r|"//rg }
      split /;/, $s_act_line;