正则表达式 – 在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

相关文章

jquery.validate使用攻略(表单校验) 目录 jquery.validate...
/\s+/g和/\s/g的区别 正则表达式/\s+/g...
自整理几个jquery.Validate验证正则: 1. 只能输入数字和字母...
this.optional(element)的用法 this.optional(element)是jqu...
jQuery.validate 表单动态验证 实际上jQuery.validate提供了...
自定义验证之这能输入数字(包括小数 负数 ) <script ...