5

免责声明：自从我做任何 perl 以来已经有很多年了，所以如果我问/说一些愚蠢的事情，请纠正我。

是否可以查看 perl 变量的字节/位表示？也就是说，如果我说类似

my $foo = 'a';

我知道（想想？）计算机看起来$foo像

0b1100010

有没有办法让 perl 打印出变量的二进制表示？

（不求任何实际目的，只是和一位老朋友胡闹，并试图比我在 1997 年更深入地理解它）

4

5 回答 5

12

当然，使用unpack：

print unpack "B*", $foo;

例子：

% perl -e 'print unpack "B*", "bar";'
011000100110000101110010

pack和perlpacktut的 perldoc 页面很好地概述了不同表示之间的转换。

于 2013-03-12T21:42:02.910 回答
2

还有一种方法：

printf "%v08b\n", 'abc';

输出：

01100001.01100010.0110001

（v 标志是仅 perl 的 printf/sprintf 功能，也适用于 . 以外的数字格式b。）

这与解包建议不同，其中字符大于"\xff"：解包将仅返回 8 个低位（带有警告），printf '%v...'将显示所有位：

$ perl -we'printf "%vX\n", "\cA\13P\x{1337}"'
1.B.50.1337
于 2013-03-13T01:59:01.350 回答
2

如果您想要实际的内部结构，可以从名为“perlguts”的文档开始。或者perldoc perlguts在这里阅读：http: //perldoc.perl.org/perlguts.html

于 2013-03-12T21:59:30.797 回答
2

在看到安迪解释你的问题的方式之后，我可以接着说Devel::Peek有一个Dump函数可以显示变量的内部表示。它不会把它带到二进制级别，但如果你对内部感兴趣，你可以看看这个。

$ perl -MDevel::Peek -e 'my $foo="a";Dump $foo';
SV = PV(0x7fa8a3004e78) at 0x7fa8a3031150
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x7fa8a2c06190 "a"\0
  CUR = 1
  LEN = 16

$ perl -MDevel::Peek -e 'my %bar=(x=>"y",a=>"b");Dump \%bar'
SV = IV(0x7fbc5182d6e8) at 0x7fbc5182d6f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x7fbc51831168
  SV = PVHV(0x7fbc5180c268) at 0x7fbc51831168
    REFCNT = 2
    FLAGS = (PADMY,SHAREKEYS)
    ARRAY = 0x7fbc5140f9f0  (0:6, 1:2)
    hash quality = 125.0%
    KEYS = 2
    FILL = 2
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "a" HASH = 0xca2e9442
    SV = PV(0x7fbc51804f78) at 0x7fbc51807340
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x7fbc5140fa60 "b"\0
      CUR = 1
      LEN = 16
    Elt "x" HASH = 0x9303a5e5
    SV = PV(0x7fbc51804e78) at 0x7fbc518070d0
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x7fbc514061a0 "y"\0
      CUR = 1
      LEN = 16
于 2013-03-12T23:05:44.380 回答
1

您可以使用ord返回一个字符的数值，并printf以%b二进制格式显示该值。

print "%08b\n”, ord 'a'

输出

01100010
于 2013-03-12T23:04:11.507 回答