Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...

$bit = (-1 & 0x80000000) >> 31;
printf "masked:   0x%x = %d\n", $bit, $bit;

Select or download this

 1:29 >perl 868_SoPW.pl

...
 1:29 >perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for MSWin32-x
+86-multi-thread-64int