¿Cómo puedo empaquetar un int como big endian de 32 bits en Perl?

Question

Considere la siguiente:

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 cosa es, tratando de leer desde otro lenguaje, esto parece ser poco endian. ¿Hay algún argumento de plantilla que me permita escribirlo como Big Endian? Me gustaría evitar hacer un trabajo extra al leer.

Answer 1

considerar el uso de la plantilla de "N" con el paquete:

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

Answer 2

La solución es la plantilla N.

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

Consulte la documentación pack para obtener una lista de todas las opciones de carga.