64位"网络"(big-endian)顺序Perl中的整数

Question

类似于如何使用pack:

N  An unsigned long (32-bit) in "network" (big-endian) order.

是否有任何方法在Perl中以"network"(big-endian)顺序打包64位整数？

Answer 1

如果您的系统支持Q包格式,您可以使用Q>获取big-endian(自Perl 5.9.2起):

% perl -e 'print pack("Q>", 1)' | hexdump -C
00000000  00 00 00 00 00 00 00 01                           |........|