regex - Perl regexp - 检索所有匹配项以列出并从文本中删除它们

Question

我有一个文本，我想在其中找到所有匹配项
(例如，匹配 /d.g/ 的每个模式)

我在列表中需要并从原始文本中删除的那些模式。

操作:dog and dig where dug in dug应该给我:
(狗，挖，挖，挖)。

文本应更改为:and where in
我可以通过两次传递文本来做到这一点，但这会是双重工作吗？

Answer 1

这是另一种选择:

use strict;
use warnings;

my $str = 'dog and dig where dug in dug';
my @matches;

$str =~ s/\b(d.g)\b/push @matches, $1; ''/ge;

print $str, "\n";
print join ', ', @matches;

输出:

 and  where  in 
dog, dig, dug, dug