pack("B*", $s) 在 Perl 中做什么?

What does pack("B*", $s) do In Perl?

我正在将一些 perl 代码迁移到 python 并且似乎无法理解什么

pack("B*", $s)

在 perl 中做。

在Python中有对应的吗?

pack:

B A bit string (descending bit order inside each byte)

它接受一个位串,并产生相应的字节。

例如,pack "B*", "0100000101000010" 等同于 "\x41\x42"chr(65).chr(66)

$ perl -Mv5.10 -e'say sprintf "%vX", pack "B*", "0100000101000010"'
41.42
```