请问如何把十六进制转换成对应的ASCII

roby

1^# roby 发表于 2007-12-12 11:18

比如D4DA转换为"在"字
请大家指点
非常感谢

flw

2^# flw 发表于 2007-12-12 11:33

print pack( 'H*', 'd4da' );

Nosferatu

3^# Nosferatu 发表于 2007-12-12 11:40

sub hex_to_ascii
{
(my $str = shift) =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg;
return $str;
}

roby

4^# roby 发表于 2007-12-12 13:07

非常感谢 flw Nosferatu 两位兄台