Question

当我对字符串进行连接时，幕后发生了什么？

my $short = 'short';
$short .= 'cake';

Perl是否有效地创建了一个新字符串，然后为其指定了正确的变量引用，或者Perl字符串本质上是否可变？

这个问题的动机来自我与一位同事的讨论，他说脚本语言可以使用不可变的字符串。

Answer 1

Perl字符串是可变的。如果需要，Perl会自动创建新的缓冲区。

use Devel::Peek;
my $short = 'short';

Dump($short);
Dump($short .= 'cake');
Dump($short = "");

SV = PV(0x28403038) at 0x284766f4
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x28459078 "short"\0
  CUR = 5
  LEN = 8
SV = PV(0x28403038) at 0x284766f4
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x28458120 "shortcake"\0
  CUR = 9
  LEN = 12
SV = PV(0x28403038) at 0x284766f4
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x28458120 ""\0
  CUR = 0
  LEN = 12

请注意，在第三种情况下没有分配新的缓冲区。

Answer 2

Perl字符串肯定是可变的。除了使用的长度和起始偏移之外，每个都将存储分配的缓冲区大小，并且将根据需要扩展缓冲区。（开始偏移量对于允许像s / ^ abc //这样的消耗操作不必移动实际数据很有用。）

Answer 3

$short = 'short';
print \$short;

$short .= 'cake';
print \$short;

执行此代码后，我得到“SCALAR（0x955f468）SCALAR（0x955f468）”。我的回答是“可变的”。

Perl字符串是不可变的吗？

3 个答案: