Question

我正在尝试修复我的代码，使Perl能够通过削弱引用和打破周期来恢复不需要的数据。

我最近在How to access Perl ref counts上提出了一个问题，答案对我来说效果很好。

对于我的某些对象，引用计数是＆gt; 1，我不知道为什么。

有没有办法让我添加一个回调或什么来帮助我知道引用计数何时递增？我想知道谁在引用一个对象。

Answer 1

实施一个Devel::XXX包，用于检查对象的refcounts？

package Devel::Something;
# just emulating Devel::Trace here
# see http://cpansearch.perl.org/src/MJD/Devel-Trace-0.10/Trace.pm
sub DB::DB {
    if ($Devel::Something::CHECK) {
        my ($package, $file, $linenumber) = caller;
        ... inspect current refcounts
        ... if any have changed, print out the details
        ...    including current package/file/linenumber
        $Devel::Something::CHECK = 0;  # disable until it's enabled again
    }
}
1;

# my program
... do some stuff ...
$Devel::Something::CHECK = 1;
... do some more stuff ...
$Devel::Something::CHECK = 1;

$ perl -d:Something my_program.pl ...

您可以在代码中的适当位置撒上$Devel::Something::CHECK = 1语句，或者更改DB::DB中的条件以定期运行（例如，if (++$Devel::Something::CHECK % 100 == 0) {以便在每100次语句评估后进行检查）

Answer 2

Perl值只跟踪它们的弱引用，而不是它们的硬引用。似乎没有办法为这样的想法添加回调。你必须自己检查一下refcounts并从那里算一算。

如何跟踪对Perl对象的引用？

2 个答案: