regex – 我可以在VIM或Perl中的单个正则表达式中替换多个项目吗？

让我们说我有字符串“快速的棕色狐狸跳过懒惰的狗”，我可以改变为“慢棕色狐狸跳过精力充沛的狗”与一个正则表达式？目前，对于这种情况，我使用两组正则表达式。 (在这种情况下，我使用s / quick / slow /后跟s / lazy / energetic /。)

替换的第二部分是双引号字符串，因此可能发生任何正常插值。这意味着您可以使用捕获的值索引到散列：

#!/usr/bin/perl

use strict;
use warnings;


my %replace = (
    quick => "slow",lazy  => "energetic",);

my $regex = join "|",keys %replace;
$regex = qr/$regex/;

my $s = "The quick brown fox jumps over the lazy dog";

$s =~ s/($regex)/$replace{$1}/g;

print "$s\n";