Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...

print "High bits   : ", $highorder->numify(), "\n";
print "Low bits    : ", $loworder->numify(), "\n";

Select or download this

C:\Code>perl bigint_shift.pl
Number      : 0x1
Num shifted : 0x100000000
High bits   : 1
Low bits    : 0