perl - 在关闭程序之前做一些事情

Question

我有一个使用 Tk 的 perl 程序。是否有任何选项可以创建一种 perl 脚本的“析构函数”？我的意思是，例如，我想在主窗口关闭之前关闭数据库并杀死一个子进程。

Answer 1

您可以使用END块

END { 
  print "before exit\n";
}