gistfile1.pl

pack('d>', $double); unpack('d>', $unpacked_double);

# pack, unpackに'>'が使えない場合、
# 下記で等価（$doubleの内部表現がリトルエンディアン）

@v = unpack( 'V2', pack( 'd', $double ) );
$packed_double = pack( 'N2', @v[1,0] );

@v = unpack( 'V2', $packed_double );
$double = unpack( 'd', pack( 'N2', @v[1,0] ) );