Comment puis-je empaqueter un int en tant que big endian 32 bits en Perl?

Question

Tenir compte cet extrait:

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; 

La chose est, en essayant de le lire d'une autre langue, cela semble être peu endian. Existe-t-il un argument de modèle qui me permette de l'écrire en big endian? Je voudrais éviter de faire du travail supplémentaire en lisant.

Answer 1

Tenir compte en utilisant le modèle "N" avec le pack:

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

Answer 2

La solution est le modèle N.

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

Voir la documentation pack pour une liste de toutes les options d'emballage.