Select Code to Download

#!/usr/local/bin/perl
#
...
 $Nonnetnumber = pack( "L", $decnumber );         # as native format

 print "Dec: $decnumber  is  'L': '",unpack("H8",$Nonnetnumber),"'  as
+ native format\n";

On Aix 5.2 on RS/6000 ( powerpc-ibm-aix5.2.0.0 )

...
Dec: 16909060  is  'V': '04030201'  as Vax or Little-endian
Dec: 16909060  is  'L': '04030201'  as native format