perl - Perlでaeiouをbfjpvに置き換えるにはどうすればよいですか？

Question

ユーザー入力文字列のaeiouをbfjpvに置き換えたい。これが機能していないコードです：-

print "Enter any String :";
while(($string = <>) ne "\n"){

    @arr = split(//,$string);

    for($i = 0 ; $i < $#arr ; $i++){
        $char = $arr[$i];

        if($char eq 'a' || $char eq 'e' || $char eq 'i' || $char eq 'o' || $char eq 'u'){
            $char = $char + 1;
        }
        print $char;
    }

}

1文字追加するにはどうすればよいですか？つまり、どうすれば。に置き換えることができますaかb。

Answer 1

あなたはただすることができます

$char++;

代わりに

$char = $char + 1;

また、交換を行うためにループする必要はありません。tr演算子を次のように使用するだけです。

($new_string = $string) =~ tr [aeiou] [bfjpv];

Answer 2

$string =~ tr/aeiou/bfjpv/;

全体の仕事をします。perlopのマニュアルを参照してください。

Answer 3

$char = chr(ord($char) + 1);

ord=文字を整数に変換

chr=整数を文字に変換