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

Question

鉴于...

Ax~B~xCx~xDx

... 发射 ...

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

我想用 - 替换 ~ 字符，用 ~ 替换 x 字符。

我可以写...

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

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

Answer 1

使用“音译”进行基于字符的替换。尝试这个:

tr/~x/\-~/;