关于unpack/pack 8bits的问题

jazzrabbit

输入
perl -e "\$aa=0x31;@aa=unpack('b8',\$aa);printf '0x%x', ord(pack('b8',@aa))"

输出是0x34,
unpack->pack 为何不能还原?

谢谢

subs

perl -e "$aa=0x31;@aa = unpack('b8',$aa);printf '%#x', hex unpack('H*',@aa)"

你开始输入0x31是 hex ，但你后来将它 pack 成 binary 了。不是用了相同的 template 就可以还原的。