perl - Perlでintを32ビットビッグエンディアンとしてパックするにはどうすればよいですか?

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

pack で "N" テンプレートを使用することを検討してください。

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

Answer 2

解決策はNテンプレートです。

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

すべてのパック オプションのリストについては、パックのドキュメントを参照してください。