Wie kann ich ein Int als 32 Bit großes Endian in Perl packen?

Question

Betrachten Sie diesen Code-Schnipsel:

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; 

Die Sache ist, versucht, es aus einer anderen Sprache zu lesen, scheint dies wenig Endian zu sein. Gibt es irgendein Template-Argument, das es mir erlaubt, es als Big Endian zu schreiben? Ich möchte vermeiden, zusätzliche Arbeit beim Lesen zu tun.

Answer 1

Betrachten Sie die "N" Vorlage mit Packung mit:

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

Answer 2

Die Lösung der N Vorlage ist.

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

Siehe pack Dokumentation für eine Liste aller Pack-Optionen.