perl：一次来自多个阵列的GREP

Question

我有多个阵列（〜32）。我想从中删除所有空白元素。如何以短暂的方式完成（可以通过一个foreach循环或1-2个命令行）？

我尝试了以下操作，但它不起作用：

    my @refreshArrayList=("@list1", "@list2", "@list3","@list4", "@list5", "@list6" , "@list7");
    foreach my $i (@refreshArrayList) {
        $i = grep (!/^\s*$/, $i);
    }

可以说， @list1 =（“ abc”，“ def”， “” ，“ ghi”）; @list2 =（“ qwe”，“” ，“ rty”，“ uy”，“ iop”），同样对于其他数组。现在，我想从所有数组中删除所有空白元素。

所需的输出应为： @List1 =（“ ABC”，“ DEF”，“ GHI”）; @list2 =（“ qwe”，“ rty”，“ uy”，“ iop”）###所有空白元素都从所有数组中删除。

怎么办？

Answer 1

您可以创建列表引用的列表，然后在这些列表上创建迭代器，例如

for my $list (\@list1, \@list2, \@list3) {
     @$list = grep (!/^\s*$/, @$list);
}

当然，您也可以动态创建此列表引用的列表，即

my @list_of_lists;
push @list_of_lists, \@list1;
push @list_of_lists, \@list2;
...
for my $list (@list_of_lists) {
     @$list = grep (!/^\s*$/, @$list);
}

Answer 2

@$_ = grep /\S/, @$_  for @AoA;   # @AoA = (\@ary1, \@ary2, ...)

说明

• 首先，这使用语句修改器，“代码>用于循环语法

  （每个）修饰符的是一个迭代器：它对列表中的每个项目执行一次语句（$ _依次对每个项目依靠）。

  


  


  这主要等同于循环的“正常” ，显着的区别是设置了范围，因此也无需将其拆除，增加了一小部分效率。† AE只能有一个语句；但是话又说回来，这可以是do块。没有范围意味着我们无法声明该语句的词汇变量（除非使用do block）。

  因此，语句为@$ _ = grep/\ s/， @$ _，为列表的每个元素执行。

• 在（每个）循环的中，依次将列表迭代（“ topicalizer”）依次设置为每个元素的变量是对这些元素的别名。因此更改它会更改元素。来自 perlsyn

  


  如果省略了var，<代码> $ _设置为每个值。

  如果列表的任何元素是lvalue，则可以通过修改循环中的var进行修改。

  在我们的情况下grep的of，仅由至少一个非空间字符（/\ s/）组成。

---

^†我对语句模型循环进行了三向基准测试，该循环与带有和没有局部变量的“正常”环。

对于添加100E6号，我得到8-11％的加速（在桌面和服务器上），并且进行了更多涉及的计算（$ r =（$ r + $ _） / sqrt（$ _）< / code>> ）是4-5％。

侧面观察：在这两种情况下变量集。