Как я могу заменить aeiou на bfjpv в Perl?

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

}

Что я должен сделать, чтобы добавить один символ? Я имею в виду, как заменить 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 = преобразовать целое число в символ