perl - 如何确定 perl 中数字列表的按位二进制分数？

Question

我正在尝试相互转换一些十进制数和二进制数。我正在处理以下列格式生成的数据:

Example decimal: 163,   Corresponding binary: 10100011

Binary table key:

...and the corresponding description for the binary number in question:

我希望能够获取十进制数，将其转换为二进制，然后使用此查找表打印给定十进制的属性列表。我可以使用以下代码将我的十进制转换为二进制:

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $str;
}

但是后来不知道怎么用lookup table。问题是，我有专为与该表兼容而设计的二进制数，例如 1000011、10000011、101110011，但我只是不知道如何使用这些二进制数来提取它们的描述。它们的长度甚至不同!

有人可以帮我理解这里发生了什么吗？

编辑:这是我找到的另一个查找表……也许这更准确/更有帮助？它看起来和我一模一样，但来自软件的官方 website .

Answer 1

一旦数字被转换，它在输入中表示的基数就无关紧要了。在内部，将其视为一个数字。

值 163 表示一个位域，即它的每一位都是一些是非问题的答案，表格告诉你这些问题是如何排列的。

您可以使用 subs 为这些位赋予人类可读的名称，如

sub read_is_paired { $_[0] & 0x0001 }
sub read_is_mapped { $_[0] & 0x0002 }
sub strand_of_mate { $_[0] & 0x0020 }
sub read_is_2nd    { $_[0] & 0x0080 }

然后解码位域类似于

my $flags = 163;
print "read is paired?  ", read_is_paired($flags) ? "YES" : "NO", "\n",
      "read is mapped?  ", read_is_mapped($flags) ? "YES" : "NO", "\n",
      "strand of mate = ", strand_of_mate($flags) ? "1"   : "0",  "\n",
      "read is second?  ", read_is_2nd($flags)    ? "YES" : "NO", "\n";

输出:

read is paired?  YESread is mapped?  YESstrand of mate = 1read is second?  YES