Help for this page

Select Code to Download


  1. or download this
    my $mask = hex($ARGV[0]);

...
my $setbits = unpack("%32b*", $mask);

printf("0x%x has %d set", $mask, $setbits);
  2. or download this
    C:\test>junk 0xff
255    ## 3 bytes
323535 ## 6 nybbles with bit patterns 0011 0010 0011 0101 0011 0101 
0xff has 11 set
  3. or download this
    #! perl -slw
use strict;
...
255
ff
0xff has 8 set