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

Question

假设我有字符串“快速的棕色狐狸跳过懒惰的狗”，我可以用一个正则表达式将其更改为“缓慢的棕色狐狸跳过精力充沛的狗”吗？目前，我针对这种情况使用了两组正则表达式。 (在本例中，我使用 s/quick/slow/ 后跟 s/lazy/energetic/ 。)

Answer 1

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

#!/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";