在 Perl 中检测全局破坏答案

【问题标题】：Detecting global destruction in Perl在 Perl 中检测全局破坏
【发布时间】：2011-06-21 14:57:50
【问题描述】：

我想检测我的对象是否被DESTROY'd 作为全局销毁的一部分，并打印出警告（因为这显然是一个错误并导致数据丢失）。这样做的明显方法似乎是：

sub DESTROY {
    my $self = shift;
    # ⋮
    if (i_am_in_global_destruction()) {
        warn "I survived until global destruction";
    }
}

但我一直无法找到检测全局破坏的好方法（而不是正常的引用计数命中 0 破坏）。

“好方法”，我的意思不是这个，虽然它适用于 5.10.1 和 5.8.8，但可能会在有人给它奇怪的一瞥时打破：

sub DESTROY {
    $in_gd = 0;
    {
        local $SIG{__WARN__} = sub { $_[0] =~ /during global destruction\.$/ and $in_gd = 1 };
        warn "look, a warning";
    }
    if ($in_gd) {
        warn "I survived until global destruction";
    }
}'

【问题讨论】：

为什么不直接在销毁时保存您的对象内容，而不用担心它是否在全局销毁期间？
@Ether：因为全局销毁的顺序是不确定的，我需要其他对象来保存我的。
我看到（来自 Devel::GlobalDestruction 来源）在 v5.13.7 中有一个适合此目的的 ${^GLOBAL_PHASE} 变量。
另见：search.cpan.org/~jesse/perl-5.13.9/pod/perlvar.pod#GLOBAL_PHASE

标签： perl destroy

【解决方案1】：

有一个模块Devel::GlobalDestruction 使用了一点点XS 让你直接获得全局销毁标志。

更新：因为perl 5.14.0 存在一个全局变量${^GLOBAL_PHASE}，在全局销毁期间将设置为"DESTRUCT"。您通常仍应使用 Devel::GlobalDestruction，因为它可以与 perls 一起使用回到 5.6。在带有${^GLOBAL_PHASE} 的 perl 上安装时，它将使用内置功能，甚至不需要 C 编译器来构建。

【讨论】：

谢谢！它甚至为 Debian 打包为 libdevel-globaldestruction-perl，因为 Lenny 也不少。

【解决方案2】：

对我来说足够好的解决方案是在 END 块中设置一个标志。

package Whatever;
our $_IN_GLOBAL_DESTRUCTION = 0;
END {
    $_IN_GLOBAL_DESTRUCTION = 1;
}

【讨论】：

这不一定有效，因为其他包的 END 块可能会在此之前执行。
此外，从技术上讲，全局销毁会在所有 END 块完成后发生 - 所以最坏的情况是它可能会在另一个 END 块中被销毁时错误地标记某些内容。