一个perl正则替换和位运算问题

rettylee

举例：
abc,dfg,0x1234;
abc,fgh,tyu;

我需要把fgh替换成0x1234的反。
我把0x1234匹配到了$2,替换时直接写（~$2 & 0xffff）。perl直接把括号里的这些给放到那里了。
我想要的是他的结果。不知道如何替换？

哪位大侠帮帮我！谢谢了

rettylee

路过的大哥大姐，帮忙指导下

zhlong8

s///e 用 e 修饰符

rettylee

回复 3# zhlong8

谢谢你的帮助。我查了下/e可以把被替换的部分作为一个运算符。我试了下，在我那里还是有问题。
原因是我的替换部分除了这个要取反这个运算外还有其他不需要运算的部分。
例如，替换部分是这样的
Write,(~$1 & 0xffff),$3;
我只需要括号内的那些进行运算，其他不是运算。
我加了/e修饰符后perl报错。。。。。

zhlong8

回复  zhlong8

谢谢你的帮助。我查了下/e可以把被替换的部分作为一个运算符。我试了下，在我那里还是有 ...
rettylee 发表于 2011-04-30 16:00

    /e 会求值，Write,(~$1 & 0xffff),$3; 求值当然有问题，perl 不明白 Write 是什么。 应该是 s//'Write ' . (~$1 & 0xffff) . $3/e

rettylee

/e 会求值，Write,(~$1 & 0xffff),$3; 求值当然有问题，perl 不明白 Write 是什么。 应该是 s//' ...
zhlong8 发表于 2011-04-30 16:39

谢谢zhlong8的回复。我按照你说的在不需要运算的部分加了“”（因为我立面还有转义字符），没想到还是有问题。
Argument "乱七八糟的东西"is not numeric in bitwise and(&)。。。。。我想这个意思应该是在运算的里面有不是数字的东西。
我把上述脚本只去掉可选修饰符/e，其他不动，出来替换的部分我看下是数字（16进制数）例如：".（~0x0020） & （0xffff）."
我试了下16进制数在~ 和 & 运算 ，例如：
$temp=0x0001;
$num=(~$temp) & (0xffff) ;
print $num;
结果是正确的十进制数。
不知道我替换时的那个错误是怎么回事？
谢谢你再指导你！

zhlong8

谢谢zhlong8的回复。我按照你说的在不需要运算的部分加了“”（因为我立面还有转义字符），没想到还是 ...
rettylee 发表于 2011-05-02 15:31

      '0x1234' 这样的字符串 Perl 是不能自动转化成正确的数字的，用 hex($2) & 0xffff

rettylee

回复 7# zhlong8


    十分感谢zhlong8的热心和耐心的帮助!