为什么脚本终止时不调用对象析构函数？

Question

我有一个这样的测试脚本：

package Test;
sub new { bless {} }
sub DESTROY { print "in DESTROY\n" }

package main;
my $t = new Test;
sleep 10;

在 sleep 返回之后（并且在程序终止之前）调用析构函数。但如果脚本使用 Ctrl-C 终止，则不会调用它。在这种情况下是否也可以调用析构函数？

Answer 1

正如罗伯特提到的，你需要信号处理程序。
如果您需要的只是对象析构函数调用，则可以使用：

$SIG{INT} = sub { die "caught SIGINT\n" };。

Answer 2

您必须设置一个信号处理程序。

package Test;
sub new { bless {} }
sub DESTROY { print "in DESTROY\n" }

package main;

my $terminate = 0;

$SIG{INT} = \&sigint;

sub sigint { $terminate = 1; }

my $t = new Test;

while (1) {
    last if $terminate;
    sleep 10;
}

沿着这些思路。然后在主循环中只需检查 $terminate ，如果已设置，则正常退出程序。

发生的情况是 cntl-c 中断 sleep，调用信号处理程序设置 $terminate，sleep 立即返回，循环到顶部，测试 $terminate 并退出优雅地。