为什么在释放大型数组时Perl不会垃圾收集内存？

Question

我知道Perl使用基于引用计数的垃圾收集.当变量超出范围时,引用计数递减,如果REFcount变为0,则取消分配内存.但是当我追踪下面显示的一个小例子时,我无法找到解除分配的情况.

print "start..";

sub func
{
    my $length = 8*1024*1024;
    my $array = [1..$length];

}

func();

print "done..";

在该示例中,当程序启动时,Perl.exe占用约3 MB的物理内存.在func()调用期间分配后,Perl.exe占用~370 MB内存.但是在func()调用之后,分配的内存应该被垃圾收集.为什么不这样做？

期待您的回复.

Answer 1

根据问题" 如何释放数组或散列,以便我的程序缩小？ "在perlfaq3中:

你通常不能.分配给词汇(即my()变量)的内存即使超出范围也无法回收或重用.如果变量返回范围,则保留它.分配给全局变量的内存可以通过使用undef()和/或delete()重用(在程序中).

在大多数操作系统上,分配给程序的内存永远不会返回给系统.这就是为什么长期运行的程序有时会重新执行的原因.某些操作系统(特别是使用mmap(2)分配大块内存的系统)可以回收不再使用的内存,但在这样的系统上,必须配置和编译perl以使用OS的malloc,而不是perl.

一般来说,内存分配和取消分配不是你可以或应该在Perl中担心的事情.

另请参见如何使我的Perl程序占用更少的内存？

Answer 2

Perl可能已将内存标记为已释放,但并不一定意味着它已被释放回操作系统.您的Perl程序可能会重用该内存.再试func一次.您不应该看到使用的内存量增加.

您可能想要设置环境变量PERL_DESTRUCT_LEVEL,看看是否有任何区别,但我对此表示怀疑.

垃圾收集不是Perl最大的优势之一.