#!/usr/bin/env perl use strict; use warnings; my $data = 0b1111_1111_1111; my $offset = 5; my $mask = hex 'F' x ($offset % 4 == 0 ? $offset / 4 : $offset / 4 + 1 +); printf("%b\n",$data ^ $mask);
In reply to Re^2: Making all nibble zero lower than the offset
by trippledubs
in thread Making all nibble zero lower than the offset
by spriyada29
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |