Perl字符串不变吗？

发布时间：2020-12-15 21:22:58 所属栏目：大数据来源：网络整理

导读：当我对字符串进行连接时,幕后发生了什么？ my $short = 'short';$short .= 'cake'; Perl是否有效地创建一个新的字符串,然后分配正确的变量引用,或Perl字符串总是可变的大自然？这个问题的动机来自于与同事的讨论,他表示脚本语言可以使用不可变字符串. 解决

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

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

Perl是否有效地创建一个新的字符串,然后分配正确的变量引用,或Perl字符串总是可变的大自然？

这个问题的动机来自于与同事的讨论,他表示脚本语言可以使用不可变字符串.

解决方法

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"
  CUR = 5
  LEN = 8
SV = PV(0x28403038) at 0x284766f4
  REFCNT = 1
  FLAGS = (PADMY,pPOK)
  PV = 0x28458120 "shortcake"
  CUR = 9
  LEN = 12
SV = PV(0x28403038) at 0x284766f4
  REFCNT = 1
  FLAGS = (PADMY,pPOK)
  PV = 0x28458120 ""
  CUR = 0
  LEN = 12

请注意,在第三种情况下不会分配新的缓冲区.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!