2

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

4

2 回答 2

11

使用 %SIG 散列来安装信号处理程序。例子:

$SIG{INT} = 'SigIntHandler';

其中 SigIntHandler 是您编写的子程序,当中断被捕获时被调用。

于 2008-11-10T04:20:45.157 回答
6

请参阅perldoc sigtrap

于 2008-11-10T04:19:08.903 回答