Perl 正则表达式数组——匹配数组的元素

Question

我正在尝试从名为@array 的数组中匹配和删除元素。要删除的元素必须与存储在名为@del_pattern的数组中的模式相匹配

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

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

要从@array 中删除@del_pattern 中包含的模式，我会遍历@del_pattern 中的所有元素并使用grep 将它们排除。

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

但是，我无法从@array 中删除','。如果我在@del_pattern 中使用',' 而不是'\b,\b'，则元素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);
    }
}

所做的唯一更改是在正则表达式 '\b,\b' 中更改为 '^,$'。我没有太多关于 \b 的信息，但我建议的正则表达式正在做你想做的事情。

Answer 2

你想要

^,\z

下面是对 \b 完全不匹配的解释。

---

\b

定义一个“词”的边界。相当于

(?<=\w)(?!\w) | (?<!\w)(?=\w)

所以

\b,\b

等价于

(?: (?<=\w)(?!\w) | (?<!\w)(?=\w) ) , (?: (?<=\w)(?!\w) | (?<!\w)(?=\w) )

由于逗号是非单词字符，因此简化为

(?<=\w),(?=\w)

所以

'a,b' =~ /\b,\b/      # Match
','   =~ /\b,\b/      # No match

Answer 3

这可行，但从代码来看不是很好。 此代码 sn -p 还删除了 ','

 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 有数组？为什么不是一个大数组？