问Perl中的垃圾回收

EN

根据我的《编程Perl》第三版，在退出时，Perl 5会执行一次“代价高昂的标记和清除”来回收循环引用。您将希望尽可能地避免循环引用，否则直到程序退出时它们才会被回收。

Perl5确实通过Scalar::Utils模块提供了弱引用。

Perl6将转向可插拔的垃圾收集方案(好吧，underlying VM will have multiple garbage collection options和这些选项的行为可能会对Perl产生影响)。也就是说，您可以在各种垃圾收集器之间进行选择，也可以实现自己的垃圾收集器。想要一个复制收集器吗？好的。想要一个颜色收集器吗？你说对了。标记/清除、压缩等？为什么不行？

简单的回答是，Perl5不会，而不是自动处理循环引用。除非您在代码中采取显式措施，否则任何包含循环引用的数据结构都不会被回收，直到创建它们的线程死亡。这被认为是一种可接受的折衷方案，因为它避免了运行时垃圾回收的需要，因为运行时垃圾回收会降低执行速度。

如果您的代码创建了具有循环引用的数据结构(即，树的节点包含回根节点的引用)，则需要使用Scalar::Util模块来“削弱”指向根节点的引用。这些弱引用不会添加到它们所指向的引用计数中，因此当最后一个外部引用消失时，整个数据结构将被自动释放。

示例：

use Scalar::Util qw(weaken);

...

    my $new_node = { content => $content, root => $root_node };
    weaken $new_node->{root};
    push @{$root_node->{children}}, $new_node;

如果您在向数据结构添加新节点时使用这样的代码，那么实际计算的对根的引用只有那些来自结构外部的引用。这正是你想要的。然后，一旦对根的最后一个外部引用消失，根以及它的所有子代都将被回收。

看看Proxy Objects吧。