regex - Perl 中的字符替换

Question

我正在努力将每个单词中的所有元音都加倍。例如:

$string="if it rains, cover with umbrella";

这是我写的代码，但我没有得到正确的输出。

$string=~s/a|e|i|o|u/aa|ee|ii|oo|uu/gi; print $string;

预期输出: iif iit raaiins cooveer wiith uumbreelaa
有人可以帮助我吗？

Answer 1

替换中的正则表达式应该可以正常工作，但是，正如您将看到的，替换字符串是一个与匹配无关的简单字符串，除非您在正则表达式中捕获子字符串并在替换字符串中使用它们。

使用字符类匹配一组字符中的任何一个，例如 [aeiuo] .

使用括号“捕获”匹配的一部分，以便您可以在替换字符串中使用它。

my $string = "if it rains, cover with umbrella";

$string =~ s/([aeiuo])/$1$1/g;

print $string;

输出

iif iit raaiins, cooveer wiith uumbreellaa