string - Perl，字符串替换

Question

我想将句子中的每个字母转换为某个字母，具体取决于它是辅音还是元音，其中元音是 AEIOU。

所以如果我有一个字符串

$string = 'Hello'

我想看看

$string = 'CVCCV'

其结果。

我知道我可以使用:

$string =~ s/A/V/
$string =~ s/B/C/
$string =~ s/C/C/

等等来单独检查和转换每个字母，但肯定必须有更有效的方法来做到这一点。

Answer 1

规范化大小写，然后应用音译运算符:

$string = lc $string;
$string =~ tr/aeioua-z/VVVVVC/;