regex - 如何捕获全局正则表达式替换中的每个匹配项？

Question

我意识到可以通过轻微的变通来实现这一点，但我希望有一种更简单的方法(因为我经常使用这种类型的表达)。

鉴于示例字符串:

my $str = "An example: sentence!*"

正则表达式可用于匹配每个标点符号并将它们捕获在数组中。
此后，我可以简单地重复正则表达式并替换匹配项，如下面的代码所示:

push (@matches, $1), while ($str =~ /([\*\!:;])/);
$str =~ s/([\*\!:;])//g;

是否有可能将其合并到 Perl 中的单个步骤中，其中替换在全局范围内发生，同时还保持对替换匹配的标签？

Answer 1

您可以嵌入代码以在正则表达式中运行:

my @matches;
my $str = 'An example: sentence!*';
$str =~ s/([\*\!:;])(?{push @matches, $1})//g;

但是对于这么简单的匹配，我只会分别进行捕获和替换。