Perl从二进制数字中删除数字。

Question

我希望从24-bit binary数字中删除几个数字，并将其转换为18-bit binary数字。

例如：

if二进制数

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];

以及关于这个主题的其他变体。