Perl 在所需文件中退出的更好方法

Question

我正在编写一个加载程序来解密源文件并运行它们。每个源文件都包含一个基于 Curses::UI 的程序，其中包含用户可以用来退出用户界面的子例程。我需要在用户退出后进行一些清理，但不确定如何捕获这些 exit 或 die 调用，以便在所需文件之后出现清理代码将执行，有什么想法吗？

Answer 1

您可以通过将代码包装在 eval 块中来捕获 die 调用，如下所示：

eval {
    require Module::that_dies;
};
if ($@) {
    # handle the exception here
}

但这对 exit 没有帮助。我相信，您可以在 END{} 块中的 exit 之后运行清理代码，但请注意，这将在任何退出后运行，而不仅仅是您需要的情况模块退出。

END { 
    # code that runs after exit
}

require Module::that_exits;

在 perldoc perlmod 中了解有关 END 块的更多信息