如何将一个浮点数的转换成所对应的16进制码？

yccxp

如何将一个浮点数的转换成所对应的16进制？

比如："00008142"对应的浮点数可通过pack/unpack求得.

$a="00008142";
$b=unpack("f*",pack("H*",$a));
print $b;

所得结果为64.5

那么，在Perl中有什么方法可以将64.5转换成"00008142"??

[ 本帖最后由 yccxp 于 2006-4-28 09:28 编辑 ]

yccxp

没有人知道吗？

apile

#!/usr/bin/perl
$a="00008142";
$b=unpack("f*",pack("H*",$a));
print $b."\n";
$a = unpack("H*",pack("f*",$b));
print "$a\n";
倒过来做就行了

yccxp

谢谢～
呵呵。。晕死。。
怎么突然脑袋不开窍了的呢。。