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

Question

我有一个使用Tk的perl程序。有没有选择来创建一种＆＃34;析构函数＆＃34; perl脚本？我的意思是例如我想在主窗口关闭之前关闭数据库并杀死子进程。

Answer 1

您可以使用END block

END { 
  print "before exit\n";
}