Help for this page

Select Code to Download


  1. or download this
    use Config;

die "Int/double size mismatch" unless $Config{ ivsize } == $Config{ nv
+size };
  2. or download this
    $packedDoubleAsInt = unpack 'Q', pack 'd', 3.14159265358979;;

...

print $unpacked;;
3.14159265358979