exp/endian.pl

   1
   2 use constant BIG_ENDIAN => pack('N', 1) eq pack('L', 1) ;
   3 use constant FLOAT_LEN => length( pack( 'd', 1 ) ) ;
   4 use constant FLOAT_PACK => BIG_ENDIAN ?
   5                 q{pack( 'd', $_ )} : q{reverse( pack( 'd', $_ ) )} ;
   6
   7 print FLOAT_PACK, "\n" ;