#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'Endian', CLEAN_AFTER_BUILD =>0;

SV *hexDump( UV in ) {
    int i;
    char *p = (char*)&in;
    SV *out = newSVpvn( NULL, 0 );

    for( i=0; i<8; ++i ) {
        sv_catpvf( out, "%02x", p[i] );
    }
    return out;
}

END_C

print hexDump( 72623859790382856 );

__END__
C:\test>endian
Use of uninitialized value in subroutine entry at C:\test\endian.pl line 19.
0807060504030201

##</code><code>##


C:\test>p1
[0] Perl> print unpack 'C*', pack 'Q>', 72623859790382856;;
1 2 3 4 5 6 7 8

[0] Perl> print unpack 'C*', pack 'Q<', 72623859790382856;;
8 7 6 5 4 3 2 1

[0] Perl> print unpack 'H*', pack 'Q<', 72623859790382856;;
0807060504030201

[0] Perl> print unpack 'h*', pack 'Q<', 72623859790382856;;
8070605040302010

[0] Perl> print unpack 'H*', pack 'Q>', 72623859790382856;;
0102030405060708

[0] Perl> print unpack 'h*', pack 'Q>', 72623859790382856;;
1020304050607080

[0] Perl> print unpack 'b*', pack 'Q>', 72623859790382856;;
10000000 01000000 11000000 00100000 10100000 01100000 11100000 00010000

[0] Perl> print unpack 'B*', pack 'Q>', 72623859790382856;;
00000001 00000010 00000011 00000100 00000101 00000110 00000111 00001000

[0] Perl> print unpack 'b*', pack 'Q<', 72623859790382856;;
00010000 11100000 01100000 10100000 00100000 11000000 01000000 10000000

[0] Perl> print unpack 'B*', pack 'Q<', 72623859790382856;;
00001000 00000111 00000110 00000101 00000100 00000011 00000010 00000001