正则表达式 – 在Perl中替换字符

前端之家收集整理的这篇文章主要介绍了正则表达式 – 在Perl中替换字符前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在努力将每个单词中的所有元音加倍.例如:

$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 with uumbreelaa

有人可以帮助我吗?

解决方法

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

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

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

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

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

print $string;

产量

iif iit raaiins,cooveer wiith uumbreellaa

猜你在找的正则表达式相关文章