Нахождение системы с прямым или прямым порядком байтов с помощью Perl

Question

Есть ли возможность узнать, имеет ли моя система порядок байтов с прямым порядком байтов или порядок байтов с прямым порядком байтов с использованием Perl?

Answer 1

perl -MConfig -e 'print "$Config{byteorder}\n";'

См. Документация Perl .

Answer 2

Я думаю, вы могли бы сделать:

$big_endian = pack("L", 1) eq pack("N", 1);

Это может произойти сбой, если ваша система имеет нестандартный (ни байтовый, ни байтовый) порядок байтов (например, PDP-11).