Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    say q{Unset mask       - }, unpack q{B*}, $vec;
    ${ $rsByte } = ${ $rsByte } &  ( ~ $vec );
}
  2. or download this
    Non-packed base  - 001100010011001000111000

...
Set mask         - 00000111
Set three lowest - 10001111