Perl：何时释放不需要的标量内存而不超出范围？

我有一个应用程序，可以将大量文本数据读取为标量，有时甚至是 GB 大小。我用substr在该标量上将大部分数据读取到另一个标量中，并将提取的数据替换为空字符串，因为第一个标量中不再需要它。我最近发现 Perl 没有释放第一个标量的内存，但它认识到它的逻辑长度已经改变。所以我需要做的是将数据从第一个标量再次提取到第三个标量中，undef第一个标量并将提取的数据放回原位。只有这样第一个标量占用的内存才真正被释放。将 undef 分配给该标量或小于已分配内存块的其他值不会改变已分配内存的任何内容。

以下是我现在所做的：

     $$extFileBufferRef = substr($$contentRef, $offset, $length, '');
     $length            = length($$contentRef);
  my $content           = substr($$contentRef, 0, $length);
     $$contentRef       = undef( $$contentRef) || $content;

$$contentRef可能是例如第一行大小为 5 GB，我提取 4,9 GB 的数据并替换提取的数据。第二行现在将报告例如字符串长度为 100 MB 数据，但例如Devel::Size::total_size仍会输出为该标量分配了 5 GB 数据。并分配undef或诸如此类$$contentRef似乎没有改变这一点，我需要打电话undef作为该标量上的函数。

我本以为背后的记忆$$contentRef之后至少已经部分释放substr被应用。看来不是那么回事...

那么，只有当变量超出范围时才会释放内存吗？如果是这样，为什么要分配undef与调用不同undef作为同一标量上的函数？

你的分析是正确的。

$ perl -MDevel::Peek -e'
   my $x; $x .= "x" for 1..100;
   Dump($x);
   substr($x, 50, length($x), "");
   Dump($x);
'
SV = PV(0x24208e0) at 0x243d550
  ...
  CUR = 100       # length($x) == 100
  LEN = 120       # 120 bytes are allocated for the string buffer.

SV = PV(0x24208e0) at 0x243d550
  ...
  CUR = 50        # length($x) == 50
  LEN = 120       # 120 bytes are allocated for the string buffer.

Perl 不仅会过度分配字符串，甚至不会释放超出范围的变量，而是在下次进入范围时重用它们。

$ perl -MDevel::Peek -e'
   sub f {
      my ($set) = @_;
      my $x;
      if ($set) { $x = "abc"; $x .= "def"; }
      Dump($x);
   }

   f(1);
   f(0);
'
SV = PV(0x3be74b0) at 0x3c04228   # PV: Scalar may contain a string
  REFCNT = 1
  FLAGS = (POK,pPOK)              # POK: Scalar contains a string
  PV = 0x3c0c6a0 "abcdef"\0       # The string buffer
  CUR = 6
  LEN = 10                        # Allocated size of the string buffer

SV = PV(0x3be74b0) at 0x3c04228   # Could be a different scalar at the same address,
  REFCNT = 1                      #   but it's truly the same scalar
  FLAGS = ()                      # No "OK" flags: undef
  PV = 0x3c0c6a0 "abcdef"\0       # The same string buffer
  CUR = 6
  LEN = 10                        # Allocated size of the string buffer

其逻辑是，如果您曾经需要过该内存，那么您很有可能会再次需要它。

出于同样的原因，分配undef到标量不会释放其字符串缓冲区。但是 Perl 为您提供了释放缓冲区的机会（如果您愿意），因此将标量传递给undef确实强制释放标量的内部缓冲区。

$ perl -MDevel::Peek -e'
   my $x = "abc"; $x .= "def";  Dump($x);
   $x = undef;                  Dump($x);
   undef $x;                    Dump($x);
'
SV = PV(0x37d1fb0) at 0x37eec98   # PV: Scalar may contain a string
  REFCNT = 1
  FLAGS = (POK,pPOK)              # POK: Scalar contains a string
  PV = 0x37e8290 "abcdef"\0       # The string buffer
  CUR = 6
  LEN = 10                        # Allocated size of the string buffer

SV = PV(0x37d1fb0) at 0x37eec98   # PV: Scalar may contain a string
  REFCNT = 1
  FLAGS = ()                      # No "OK" flags: undef
  PV = 0x37e8290 "abcdef"\0       # The string buffer is still allcoated
  CUR = 6
  LEN = 10                        # Allocated size of the string buffer

SV = PV(0x37d1fb0) at 0x37eec98   # PV: Scalar may contain a string
  REFCNT = 1
  FLAGS = ()                      # No "OK" flags: undef
  PV = 0                          # The string buffer has been freed.