Существует ли опция найти, является ли моя система прямым порядком байтов или обратным порядком байтов с помощью Perl?
perl -MConfig -e 'print "$Config{byteorder}\n";'
См. документацию Perl .
Думаю, вы могли бы сделать:
$big_endian = pack("L", 1) eq pack("N", 1);
Это может дать сбой, если в вашей системе используется нестандартный порядок байтов (не обратный или прямой порядок байтов) (например, PDP-11).