Comment puis-je remplacer aeiou avec bfjpv en Perl?

Question

Je veux remplacer aeiou par bfjpv dans la chaîne entrée par l'utilisateur. Voici le code qui ne fonctionne pas: -

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

} 

Que dois-je faire pour ajouter un caractère? Je veux dire comment remplacer a avec b.

Answer 1

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

ord = convertir caractère en nombre entier

chr = convertir entier à caractère

Answer 2

Vous pouvez juste faire

$char++; 

à la place de

$char = $char + 1; 

vous aussi vraiment d Il n'est pas nécessaire de faire une boucle pour faire le remplacement. Il suffit d'utiliser l'opérateur tr comme:

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

Answer 3

$string =~ tr/aeiou/bfjpv/; 

Est-ce que tout le travail. Voir le perlop manual.