Select Code to Download

unpack 'd', $buffer;           # big-endian (e.g. sparc, PA-RISC)
                               # i.e. 'perl -V' showing "byteorder=432
+1"

unpack 'd', reverse $buffer;   # little-endian (e.g. x86)
                               # i.e. 'perl -V' showing "byteorder=123
+4"