Làm thế nào tôi có thể đóng gói một int như 32 bit lớn endian trong Perl?

Question

Hãy xem xét đoạn mã này:

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; 

Vấn đề là, cố gắng đọc nó từ một ngôn ngữ khác, điều này dường như là little endian. Có bất kỳ đối số mẫu nào cho phép tôi viết nó như là một endian lớn không? Tôi muốn tránh làm thêm khi đọc.

Answer 1

Xem xét sử dụng các "N" mẫu với gói:

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

Answer 2

Giải pháp là N mẫu.

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

Xem tài liệu pack để biết danh sách tất cả các tùy chọn gói.