如何在Perl中捕获和处理信号？

Question

有什么办法可以捕捉错误并从Perl中正常退出吗？我正在研究可能因操作系统或运行在我的服务器上的其他应用程序的SIG事件而失败的脚本。我希望陷入这个事件，显示错误并在关闭脚本执行期间打开的所有文件和其他属性后退出。

Answer 1

使用％SIG哈希来安装信号处理程序。例如：

$ SIG {INT} ='SigIntHandler';

其中，SigIntHandler是您写入的一个子类，用于捕获中断时调用。

Answer 2

参见perldoc sigtrap。