Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    $result = pack("S", $pair->[0]) cmp pack("S", $pair->[1]);
    print "Native: $pair->[0] cmp $pair->[1] = $result\n";
}

Select or download this

Little: 253 cmp 254 = -1
Big:    253 cmp 254 = -1
...
Little: 253 cmp 257 = 1
Big:    253 cmp 257 = -1
Native: 253 cmp 257 = 1