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

发布时间：2020-12-14 05:38:33 所属栏目：百科来源：网络整理

导读：我正在努力将每个单词中的所有元音加倍.例如： $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 有人可以

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

$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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!