代码之家 › 专栏 › 技术社区 › Zaid

Perl字符串是不可变的吗?

string perl

Zaid · 技术社区 · 16 年前

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

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

Perl是否有效地创建了一个新字符串,然后为其分配了正确的变量引用,或者Perl字符串在本质上总是可变的?

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

3 回复 | 直到 16 年前

Eugene Yarmash 16 年前

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

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

ysth 16 年前

hlynur 16 年前

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

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

执行此代码后,我得到“SCALAR(0x955f468)SCALAR(0x955f468)”。我的答案是“可变的”。

推荐文章

Aidan · 为什么在将最后一个索引分配给空终止符(\0)后,我无法释放char缓冲区

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

Mehan Alavi · TCP Socket-打印字符串中所有不在C中的字符不起作用

1 年前

Haru Hoshizora · 为什么一个整数的位置没有改变,但值却不同

1 年前

bear_525 · 从列中删除中间名和首字母,并保存在单独的列中

1 年前

asdfadf · 为什么具有相同内存值的字符串和整数打印方式不同?

1 年前

DrakeMurdoch · 统计每行中的字符数,如果所有字符数都低于某个数字,则删除

1 年前

user764754 · 防止多行原始字符串文字中出现新行字符

1 年前

Bogaso · 从列表中返回与模式匹配的元素

1 年前

Jasco · 如何使用VBA提取两个相似字符之间的字符串中的单词?

1 年前