Являются ли строки Perl неизменяемыми?

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)».Мой ответ будет «изменчивым».