在perl中,如何在一次传递中用一组不同的字符替换一组字符？

Question

鉴于......

Ax~B~xCx~xDx

... 发射 ...

A~-B-~C~-~D~

我想用〜替换〜字符,用x替换x字符.

我可以写......

s/~/-/g;s/x/~/g; 

...但是(看起来像)经过两次字符串.

Answer 1

根据字符使用"音译"进行替换.试试这个:

tr/~x/\-~/;