如何在Perl中捕獲和處理信號？

Question

有什麼辦法可以捕捉錯誤並從Perl中正常退出嗎？我正在研究可能因操作系統或運行在我的服務器上的其他應用程序的SIG事件而失敗的腳本。我希望陷入這個事件，顯示錯誤並在關閉腳本執行期間打開的所有文件和其他屬性後退出。

Answer 1

使用％SIG哈希來安裝信號處理程序。例如：

$ SIG {INT} ='SigIntHandler';

其中，SigIntHandler是您寫入的一個子類，用於捕獲中斷時調用。

Answer 2

參見perldoc sigtrap。