Unpack

yinyuemi

工作中遇到个问题，劳烦大家指点下！

在Ruby中使用String Class中的str.unpack('G*')解析字符串，返回float type值：

1. Float        |         |
   
2. Directive    | Returns | Meaning
   
3. G         | Float   | double-precision, network (big-endian) byte order

复制代码

如何用perl实现这样的功能呢？
注：如果字符串格式是32-bit unsigned, network byte order，我的办法是unpack("f",pack("I",unpack("N*",$str)))，
但现在的情况是，字符串格式为64-bit unsigned, network byte order，不知怎么处理？
查看手册，貌似使用修饰符 '<' '>' 有可能实现，不过没成功，请各位大大指点下，多谢！

zhlong8

什么和什么啊，64位需要用 64位的 Perl，不行你手工转下顺序就是了

unpack("f",pack("I",unpack("N*",$str)))

是干什么的？

yinyuemi

回复 2# zhlong8

恩，我是用64为perl测试的，斑竹你提到的手动转顺序是什么？能详细说下么？

刚找到解决办法是 unpack ("d>",$str)，可以解决double precision的问题，不过依然没有解决network byte的问题
   

zhlong8

浮点数也有大小端问题？

yinyuemi

回复 4# zhlong8


    恩，$str是 C程序生成的，base64 encode之前的数据type定义是double。（我的专业不是计算机，可能说的不准确）

zhlong8

回复 5# yinyuemi


    不知道你到底还干什么，得到数据的字符串表示然后对照着 pack 函数文档中的那个表用 unpack 不就行了，order 用 >< 设置下就是了。

yinyuemi

回复 6# zhlong8

恩，多谢啦～