Perl正規表現の配列 - 配列の一致する要素

Question

@arrayという配列から要素を照合して削除しようとしています。アレイ内に格納されたパターンと一致している必要があり、除去すべき要素は@del_pattern内のすべての要素を、@arrayからIループを@del_patternに含まれるパターンを除去するとgrepを使用して、それらを排除する

my @del_pattern = ('input', 'output', 'wire', 'reg', '\b;\b', '\b,\b'); 

my @array = (['input', 'port_a', ','], 
      ['output', '[31:0]', 'port_b,', 'port_c', ',']); 

@del_patternと呼ばれます。

## delete the patterns found in @del_pattern array 
foreach $item (@del_pattern) { 
    foreach $i (@array) { 
     @$i = grep(!/$item/, @$i); 
    } 
} 

しかし、私は@arrayから','を削除することができませんでした。 '\b,\b'の代わりに','を@del_patternに使用すると、port_b,という要素も同様に意図された結果ではないので、@arrayから削除されます。私は','だけを含む要素の削除にのみ関心があります。

Answer 1

間違った正規表現を使用しています。私はコードを更新して、それを試してみました。 PFBの更新コード：

my @del_pattern = ('input', 'output', 'wire', 'reg', '\b;\b', '^,$'); 

my @array = (['input', 'port_a', ','], 
      ['output', '[31:0]', 'port_b,', 'port_c', ',']); 
## delete the patterns found in @del_pattern array 
foreach my $item (@del_pattern) { 
    foreach my $i (@array) { 
     @$i = grep(!/$item/, @$i); 
    } 
} 

Regex '\ b、\ b'から '^、$'に変更が加えられました。私は多くの情報を\ bは持っていませんが、私が提案している正規表現は、あなたが意図していることをやっています。

Answer 2

これは機能しますが、コードからはあまりうまくいきません。 このコードスニペットも削除 ''

my $elm = []; 

sub extract { 
    my $elm = shift; 

    foreach my $del (@del_pattern) { 
     $elm =~ s/$del//g; 
     if ($elm) { 
     return $elm; 
     } 
    } 
} 


foreach my $item (@array) { 
    foreach my $i (@$item) { 
     my $extract = extract($i); 
     if ($extract) { 
      push(@$elm, $extract); 
     } 
    } 
} 

print Dumper($elm); 

あなた@arrayが配列を持っているのはなぜ？なぜ1つの大きな配列ですか？