按位不是Perl中的十六进制数

Question

我有一个包含十六进制数字的长字符串.用一个补码(也用十六进制)替换每个数字的最佳方法是什么？

也就是说,如果我有

$string = "d3e5d1b8 66300f40 16010f2e \ncc1e010f 00b0b802 bbd0000f e38e0098 \n"

我想得到

$string = "2b1a2e47 99bff0cf e9fef0d1 \n33e1fef0 ff4f47fd 442ffff0 1b71ff67 \n";

我现在的解决方案是替换16个十六进制数字中的每一个

$string=~s/0/g/g; $string=~s/f/0/g; $string=~s/g/f/g;
...
...
16 times 

Answer 1

使用tr:

$string =~ tr/0123456789abcdef/fedbca9876543210/;