Perl: лучший способ сопоставить, сохранить и заменить регулярное выражение во всем мире

Question

В строке я хочу найти все совпадения регулярного выражения в строке, сохранить совпадения и заменить совпадения. Есть ли гладкий способ сделать это?

Пример:

my $re = qr{\wat};
my $text = "a cat a hat the bat some fat for a rat";
... (substitute $re -> 'xxx' saving matches in @matches)
# $text -> 'a xxx a xxx the xxx some xxx for a xxx'
# @matches -> qw(cat hat bat fat rat)

Я пробовал: @matches = ($text =~ s{($re)}{xxx}g) но это дает мне счет.

Должен ли я добавить исполняемый код в конец шаблона $re?

Обновление: вот метод, который использует расширенный шаблон выполнения кода (?{ ... }):

use re 'eval';  # perl complained otherwise
my $re = qr{\wat};
my $text = "a cat a hat the bat some fat for a rat";

my @x;
$text =~ s{ ($re)(?{ push(@x, $1)}) }{xxx}gx;

say "text = $text";
say Dumper(\@x); use Data::Dumper;

Answer 1

Если под «гладким» вы подразумеваете «использует необычно используемые языковые функции» или «заставит других программистов ломать голову», то, возможно, это решение для вас:

my ($temp, @matches);

push @matches, \substr($text, $-[0], $+[0] - $-[0]) while $text =~ /\wat/g;

$temp = $$_, $$_ = 'xxx', $_ = $temp for reverse @matches;

Answer 2

Это похоже на подход в вашем обновлении, но немного проще для чтения:

$text =~ s/($re)/push @x, $1; 'xxx'/ge;

Или так (вероятно, медленнее):

push @x, $1 while $text =~ s/($re)/xxx/;

Но, действительночто-то не так с unslick ?

my @x = $text =~ /($re)/g;
$text =~ s/($re)/xxx/g;

Answer 3

my @x = map { $str =~ s/$_/xxx/; $_ } $str =~ /($re)/g;