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/;

Answer 2

使用...... s/[bcdfghjklmnpqrstvwxyz]/C/gi和s/[aeiou]/V/gi.这些被称为字符类.该i标志使匹配不区分大小写.