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 делает совпадение без учета регистра.

Answer 3

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