Perl удалить цифры из двоичного числа

Question

Я хочу удалить несколько цифр из номера 24-bit binary и преобразовать его в 18-bit binary номер.

Например:

если Binary номер

bin24=111100111011111000100111 

Я хочу, чтобы удалить биты 23:22, 15:14 и 7:6 и выход должен быть

bin18=110011111110100111 

Я знаю, что могу это сделать с помощью substr() и объединить. Просто хотел узнать, смогу ли я сделать это в одной строке?

Answer 1

$bin18 = join '', unpack('x2 a6 x2 a6 x2 a6', $bin24); 

Answer 2

my $bin18 = reverse join '', (reverse ($bin24 =~ /([01])/g))[0 .. 5, 8 .. 13, 16 ..21]; 

и другие варианты по теме.