如何用Perl中的bfjpv替換aeiou？

Question

我想在用戶輸入的字符串中用bfjpv替換aeiou。這裏是不工作的代碼： -

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 = chr(ord($char) + 1); 

ORD =轉換字符爲整數

CHR =轉換爲字符整數

Answer 2

你可以做

$char++; 

代替

$char = $char + 1; 

你也真的d不需要循環進行替換。只需使用tr操作爲：

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

Answer 3

$string =~ tr/aeiou/bfjpv/; 

是否整個工作。請參閱perlop manual。