你能解释一下我从解包中得到的信息吗？

Question

我对 Perl 相对缺乏经验，但我的问题涉及获取数值位时的解包函数。例如：

my $bits = unpack("b*", 1);
print $bits;

这将导致打印 10001100，即十进制的 140。按照相反的顺序，它的十进制数是 49。我尝试过的任何其他值似乎都会给出错误的位。

然而，当我通过 pack 运行 $bits 时，它再次产生 1。我在这里缺少什么吗？

当我认为我的问题已经解决时，我似乎就草率下结论了。也许我应该简要解释一下我正在尝试做什么。

我需要将一个可能长达 24 位长的整数值（重点是它可能大于一个字节）转换为一个位字符串。这可以按照@ikegami的建议使用 unpack 和 pack 来完成，但我还需要找到一种方法将该位字符串转换回其原始整数（而不是它的字符串表示形式）。

正如我提到的，我对 Perl 相对缺乏经验，而且我一直在尝试但没有成功。

---

我发现似乎是最佳解决方案：

my $bits = sprintf("%032b", $num);
print "$bits\n";
my $orig = unpack("N", pack("B32", substr("0" x 32 . $bits, -32)));
print "$orig\n";

Answer 1

这可能是显而易见的，但其他答案没有明确指出： unpack("b*", 1) 中的第二个参数被类型转换为字符串 "1"< /code>，其十六进制 ASCII 值为 31（最高有效半字节在前）。

相应的二进制文件为 00110001，它在输出中反转为 10001100，因为您使用了 "b*" 而不是 "B *”。它们对应于二进制表示的相反“字节序”形式。 “字节顺序”就是最高有效位是位于二进制表示的开头还是结尾。

Answer 2

您没有具体说明您的期望。我猜您正在期待00000001。

这是您提供的字节的正确位，至少在非 EBCDIC 系统上是这样。请记住，unpack 的输入是一个字符串（主要是字节字符串）。也许您想要

unpack('b*', pack('C', 1))

更新：正如其他人指出的那样，上面给出了10000000。对于 00000001，您可以使用

unpack('B*', pack('C', 1))  # 00000001

Answer 3

是的，您错过了不同的机器支持不同的“endianness”。 Perl 将 1 视为 '1' (0x31)。所以，你看到的是 1 -> 1000（升序）和 3 -> 1100.

“错误”取决于观点以及您是否为 Perl 提供了足够的信息来了解您想要的编码和字节顺序。

来自 pack：

b A bit string (ascending bit order inside each byte, like vec()).
B A bit string (descending bit order inside each byte).

我认为这就是你想要的：

unpack( 'B*', chr(1))

Answer 4

您正在尝试将整数转换为二进制，然后再转换回来。虽然您可以使用 pack 然后 解压，更好的方法是使用 sprintf 或 printf 以及 % b 格式：

my $int = 5;
my $bits = sprintf "%024b\n", $int;
print "$bits\n";

要采用另一种方式（将 0 和 1 的字符串转换为整数），最好的方法是使用 oct 函数带有 0b 前缀：

my $orig = oct("0b$bits");
print "$orig\n";

正如其他人所解释的，unpack 需要一个字符串来解包，因此如果您有一个整数，您首先必须将其pack 成一个字符串。 %b 格式要求以整数开头。

如果您需要在字节上执行大量操作，并且速度至关重要，您可以构建一个查找表：

my @binary = map { sprintf '%08b', $_ } 0 .. 255;

print $binary[$int];  # Assuming $int is between 0 and 255

Answer 5

ord(1) 是 49。您一定想要 sprintf("%064b", 1) 之类的东西，尽管这看起来确实有点矫枉过正。

Answer 6

你想要“B”而不是“b”。

$ perl -E'say unpack "b*", "1"'
10001100

$ perl -E'say unpack "B*", "1"'
00110001

包