Select Code to Download

Hexadecimal number > 0xffffffff non-portable at test.pl line 9

$ perl -V:ivsize
ivsize='8';
...
1152921504606846975
$ perl -wle'printf "%x\n", 1152921504606846975'
fffffffffffffff

$ gperl32 -V:ivsize
ivsize='4';
...
1.15292150460685e+18
$ gperl32 -wle'printf "%x\n", 1152921504606846975'
ffffffff

use 5.18.2;
use warnings;
...
    my $n = unpack "Q>", pack "L>L>", $n1, $n2;
    printf "\r%064b %016X\n", $n, $n;
    }

One rand
0000000001011110010111000001101110010101000100000000111111111111 005E5
+C1B95100FFF
...
1000010010001000100101101000000010100011000000111111100011010100 84889
+680A303F8D4
1001011101011111101000010100010000010010111010111000100010110010 975FA
+14412EB88B2
1001001001001110111101001100000001101010000011110110101100110110 924EF
+4C06A0F6B36