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

Question

有没有办法捕获错误并从Perl优雅地退出？我正在处理一个脚本，该脚本可能由于操作系统或我服务器上运行的其他应用程序的SIG事件而失败。我希望捕获此事件，显示错误并在关闭脚本执行期间打开的所有文件和其他属性后退出。

Answer 1

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

$ SIG {INT} ='SigIntHandler';

其中SigIntHandler是您编写的子函数，用于捕获中断时调用。

Answer 2

请参阅 perldoc sigtrap 。