Perl 6多個全局正則表達式或字符替換

Question

在Perl6中編寫多個字符替換的最佳風格是什麼？例如。我想用另一個字母表的字母替換一個字母表的字母。假設我的第一個「字母」是abcd，我的第二個 - efgh，所以我想要進行替換a→e，b→f，c→g，d→h。使用sed我會寫：

$ echo dcba | sed 'y/abcd/efgh/' 
hgfe 

在Perl6，據我所知，我應該寫這樣的：如果我走20-30-40字母

$ echo dcba | perl6 -pe 's:g/a/e/; s:g/b/f/; s:g/c/g/; s:g/d/h/' 
hgfe 

（甚至更多）字符，這將是不方便的。有沒有更好的方法來解決Perl6的這個問題？

Answer 1

在Perl6有音譯操作者tr如在Perl 5. Perl6，也有這個操作者的方法的形式稱爲trans：

echo dcba | perl6 -pe '$_.=trans(["a".."d"] => ["e".."h"])' 

輸出：

hgfe