如何在Perl中打包一个int为32位的big endian？

Question

考虑这个片断：

use strict; 
use warnings; 

my $data = "1"; 
my $packed = pack("I",$data); 
open(my $file,">","test.bin") || die "error $!\n"; 
binmode $file; 
print $file $packed; 

的事情是，试图从另一种语言读它，这似乎是小端。有没有模板参数可以让我把它写成大端？阅读时，我想避免做额外的工作。

Answer 1

考虑使用 “N” 模板与包：

http://perldoc.perl.org/functions/pack.html

Answer 2

的解决方案是N模板。

my $packed = pack "N", $data; 

见的所有包选项列表中pack文档。