Perl：从多个数组中删除元素

Question

我正在尝试从数组中删除值我已经尝试了以下所有 3 种方法，但之前和之后的转储器输出保持不变。

@数组：

$VAR1 = [
          [
            'LINK-IF-A/1/1/1<->IF-B/1/1/1',
            'LINK-IF-C/1/1/1<->IF-D/1/1/1',
            'LINK-IF-E/1<->IF-F/2'
          ]
        ];

$value = LINK-IF-C/1/1/1IF-D/1/1/1

Method1 :

my @remove = grep { $_ != "$value" } @array;

Method2 :

my @remove = grep { grep {!/$value/ } @$_ } @array;

Method3 :

my @remove = grep(!/"$value"/, @array);

DEBUG(Dumper\@remove)); --> 与输入相同的输出...不删除

谢谢，

Answer 1

for my $inner (@array) {
   @$inner = grep { $_ eq $value } @$inner;
}

抱歉，没时间解释。

Answer 2

Codepad

一种方法是遍历数组并 grep 每个内部数组：

my @remove = map { [ grep { !/$value/ } @$_ ] } @array;

如果你的外层数组真的只有一个元素的数组，你可以避免使用map并将数组从堆栈中弹出：

my @remove =  [ grep { !/$value/ } @{$array[0]} ];