Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings qw( all );
...

    printf "%s\n", ((substr($binimage[$thisrow], $col, 1)) & 2**(7-$su
+bcol))? "1" : "0";
}
  2. or download this
    printf (...) interpreted as function at a.pl line 13.
processing row/column/bit 5/0/0: ▒
...
Incoming byte is 0/0/       0/00000000.  Test bitmask is 128/80/100000
+00/00110001.
Argument "\0" isn't numeric in bitwise and (&) at a.pl line 23.
0
  3. or download this
    substr($binimage[$thisrow], $col, 1)
  4. or download this
    ord(substr($binimage[$thisrow], $col, 1))