Perl 结束函数中的清除
我的perl脚本使用一个END函数，在这里它取消了一些临时文件的链接。有时脚本会被用户中断或挂起，临时文件不会被删除 在perl中处理这个问题的过程是什么？除非脚本完全运行或执行退出或死亡，否则end函数不起作用Perl 结束函数中的清除,perl,Perl,我的perl脚本使用一个END函数，在这里它取消了一些临时文件的链接。有时脚本会被用户中断或挂起，临时文件不会被删除 在perl中处理这个问题的过程是什么？除非脚本完全运行或执行退出或死亡，否则end函数不起作用 谢谢这里有两个方面。第一种方法是，如果您的程序完成得比较干净，则清理临时文件。为此，您不必重新发明轮子，只需使用核心模块即可。它可以做很多事情，它的好处之一是在垃圾收集变量时删除临时文件 另一个方面是如果发生了真正的程序崩溃（例如，kill-9）。在这种情况下，您的程序无法自行处理清理
谢谢这里有两个方面。第一种方法是，如果您的程序完成得比较干净，则清理临时文件。为此，您不必重新发明轮子，只需使用核心模块即可。它可以做很多事情，它的好处之一是在垃圾收集变量时删除临时文件 另一个方面是如果发生了真正的程序崩溃（例如，
kill-9/tmp/var/tmp/tmp/var/tmp如果您想要一个相当简单的方法，那么我建议您既不要使用
/tmp/var/tmptmpreaperkill-9/tmp/var/tmp/tmp/var/tmp如果您想要一个相当简单的方法，那么我建议您既不要使用
/tmp/var/tmptmpreaper搜索%SIG，您将找到一个示例。如果实际的程序中断发生（例如kill-9或Ctrl+C），您可以指定程序应如何处理它
搜索%SIG，您将找到一个示例。在unix系统上，如果文件在删除前已打开，则删除后仍可以使用该文件。如果您实际上不需要文件名（或者如果您可以调整代码，这样您就不需要），这是最可靠的解决方案。的某些函数将为您预删除临时文件。在unix系统上，如果文件在删除前已打开，则删除后仍可以使用该文件。如果您实际上不需要文件名（或者如果您可以调整代码，这样您就不需要），这是最可靠的解决方案。的某些函数将为您预删除临时文件。
END{}SIGTERMSIGINTCtrl+C$SIG{TERM} = $SIG{INT} = sub { exit 1 };
通过
SIGKILLEND{}SIGTERMSIGINTCtrl+C$SIG{TERM} = $SIG{INT} = sub { exit 1 };
通过
SIGKILLSIGKILLkill-9SIGTERMkillSIGKILLkill-9SIGTERMkill