perl - Perl 中的递归引用

Question

$a=\$a;

我正在阅读的书在这种情况下说 $a永远不会免费，我的问题是为什么 perl 解释器在编译时不修复它？当它发现它指向自己时，不要增加引用计数。

为什么 perl 不这样做？

Answer 1

一些垃圾收集器有循环检测；出于性能和历史原因，Perl 没有。如果你想要一个不影响引用计数的引用，你可以使用 Scalar::Util::weaken获取弱引用，这在大多数需要依赖它的情况下消除了循环检测的需要。需要在解释器中内置循环检测以自动检测 \$a应该是弱引用或强引用，所以你只需要明确地做。