请教DQP大侠，关于ruby->perl

qianzhuo

line.gsub!(/(\\x[0-9a-fA-F]{2})+/) do
          [$1.delete('\\\\x')].pack('H*')

请问上面这2句，用perl怎么写啊？谢谢

DQP

我的名字怎么写道标题上 快删掉。。。。 至少把大侠那两字字去掉

不好意思你的这个需求有些怪 我没看明白....
如果直接翻译成perl我想应该是这样：
my ($a) = ($line =~ m/\\x([0-9a-fA-F]{2})/g)[-1];
$line = pack('H*', $a);
找出在line中满足\\x([0-9a-fA-F]{2})的最后一个子串. 然后对它作pack. 再将这个pack的返回值赋给line。  这真的是想要的么？ 而不是这样的么：

line.gsub!(/(\\x[0-9a-fA-F]{2})+/) do |x|
          [x.delete('\\\\x')].pack('H*')
end

？？
Regards

[ 本帖最后由 DQP 于 2008-12-1 14:32 编辑 ]

qianzhuo

谢谢，大侠赐教。今后不把您的名字写上了，主要是想能让您快点看到。呵呵，对不起。

case line
when /google\.com/
        line.gsub!(/(\\x[0-9a-fA-F]{2})+/) do
          [$1.delete('\\\\x')].pack('H*')
        end
        _print NKF.nkf('-Z1e', line)

其实代码是这样的。您看用perl怎么写好呢？

再次感谢。谢谢