开发::偷看问题

Question

% perl -Ilib -MDevel::Peek -le '$a="34567"; $a=~s/...//; Dump($a)' 
SV = PV(0x8171048) at 0x8186f48   # replaced "12345" with "34567"
  REFCNT = 1
  FLAGS = (POK,OOK,pPOK)
  OFFSET = 3
  PV = 0x8181bdb ( "34\003" . ) "67"\0
  CUR = 2
  LEN = 9

2 和 3 之间被截断的部分 ( "12\003" . ) 中的 2 个零来自哪里？

为什么我会在 chomped 部分 ( "34\003" . ) 中得到这种输出？

Answer 1

一个错误？ “\003”是八进制形式的 chr(3)。但是：

$ perl -Ilib -MDevel::Peek -le '$a="12345"; $a=~s/...//; Dump($a)'
SV = PVIV(0x869b0bc) at 0x86a5060
  REFCNT = 1
  FLAGS = (POK,OOK,pPOK)
  IV = 3  (OFFSET)
  PV = 0x869fac3 ( "123" . ) "45"\0
  CUR = 2
  LEN = 5

我不能复制它；你使用什么版本的 perl？

请注意，() 中的字符串缓冲区部分是保留的，但当前未使用。

Answer 2

我在 Windows 上使用 perl 5.12.2 得到与 sid_com 相同的结果。然而，字符串长度无论如何都是从结构的 CUR 字段中获取的。我不明白为什么这应该是一个错误，字符串缓冲区的其余部分可能有任何字节。