Select Code to Download

$d = unpack 'd', pack 'Q', 0x7ff0000000000001;;

...

printf "%f\n", $d;;
1.#SNAN0

#! perl -slw
use strict; use Config;
...

print doubleToHex( $snan );

C:\test>snan-ic.pl
1.#SNAN0
7ff0000000000001