我如何用o和e的字母交换字母o?
我只是试过这个,但我不认为这是一个很好的方法。有没有更好的办法?
my $str = 'Absolute force'; $str =~ s/e/___eee___/g; $str =~ s/o/e/g; $str =~ s/___eee___/o/g;
输出:Abseluto ferco
使用
transliteration operator:
$str =~ y/oe/eo/;
例如。
$ echo "Absolute force" | perl -pe 'y/oe/eo/' Abseluto ferco