Perl：删除数组项并调整数组大小

Question

我正在尝试使用 Perl 中的另一个数组过滤一组术语。我在 OS X 上有 Perl 5.18.2，但如果我 use 5.010 行为是相同的。这是我的基本设置：

#!/usr/bin/perl
#use strict;
my @terms = ('alpha','beta test','gamma','delta quadrant','epsilon',
             'zeta','eta','theta chi','one iota','kappa');
my @filters = ('beta','gamma','epsilon','iota');
foreach $filter (@filters) {
    for my $ind (0 .. $#terms) {
        if (grep { /$filter/ } $terms[$ind]) {
            splice @terms,$ind,1;
        }
    }
}

这可以提取与各种搜索词匹配的行，但数组长度不会改变。如果我写出结果 @terms 数组，我得到：

[alpha]
[delta quadrant]
[zeta]
[eta]
[theta chi]
[kappa]
[]
[]
[]
[]

如您所料，打印scalar(@terms) 得到10 的结果。

我想要的是一个长度为 6 的结果数组，最后没有四个空白项。我如何得到这个结果？既然perldoc page about splice 说“数组会根据需要增长或缩小”，为什么数组没有缩小？

（我对 Perl 不是很流利，所以如果你在想“你为什么不...我听说过。）

Answer 1

你总是可以重新生成数组减去你不想要的东西。 grep 充当过滤器，让您决定想要哪些元素，不要哪些元素：

#!/usr/bin/perl

use strict;

my @terms = ('alpha','beta test','gamma','delta quadrant','epsilon',
           'zeta','eta','theta chi','one iota','kappa');
my @filters = ('beta','gamma','epsilon','iota');

my %filter_exclusion = map { $_ => 1 } @filters;

my @filtered = grep { !$filter_exclusion{$_} } @terms;

print join(',', @filtered) . "\n";

如果你手头有一个像%filter_exclusion 这样的简单结构，那就很容易了。

更新：如果要允许任意子字符串匹配：

my $filter_exclusion = join '|', map quotemeta, @filters;

my @filtered = grep { !/$filter_exclusion/ } @terms;

Answer 2

要查看发生了什么，请在每个步骤中打印数组的内容：当您拼接数组时，它会缩小，但您的循环会迭代 0 .. $#terms，所以在循环结束时，$ind将指向数组末尾的后面。当您使用grep { ... } $array[ $too_large ] 时，Perl 需要在 grep 块内将不存在的元素别名为 $_，因此它会在数组中创建一个 undef 元素。

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @terms = ('alpha', 'beta test', 'gamma', 'delta quadrant', 'epsilon',
             'zeta', 'eta', 'theta chi', 'one iota', 'kappa');
my @filters = qw( beta gamma epsilon iota );

for my $filter (@filters) {
    say $filter;
    for my $ind (0 .. $#terms) {
        if (grep { do {
            no warnings 'uninitialized';
            /$filter/
        } } $terms[$ind]
        ) {
            splice @terms, $ind, 1;
        }
        say "\t$ind\t", join ' ', map $_ || '-', @terms;
    }
}

如果您使用$terms[$ind] =~ /$filter/ 而不是grep，您仍然会收到未初始化的警告，但由于不需要为元素命名，因此不会创建它。