Perl、string replacement

Question

母音がAEIOUである子音か母音かによって、文章中の各文字をある種の文字に変換したい。

私は、文字列

$string = 'Hello' 

を持っているのであれば、私はその結果

$string = 'CVCCV' 

を見たいのですが。

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

をというようにチェックするために、個別に各文字を変換しますが、確かにこれを行うには、より効率的な方法が存在しなければならない：

は、私が使用することができます知っています。

Answer 1

使用... s/[bcdfghjklmnpqrstvwxyz]/C/giおよびs/[aeiou]/V/gi。これらはcharacter classesと呼ばれます。 iフラグは、大文字と小文字を区別しません。

Answer 2

ノーマライズケース、そして文字変換演算子を適用します。

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

Answer 3

s/([aeiou])|[a-z]/ defined $1 ? 'V' : 'C' /ieg