Perl 中信号量%SIG的使用说明

今天遇到一个问题，想要在执行die之前先执行一些清理工作。目前的解决方法有两种：
1.

open file or do {...; die ...;}

2.

local $SIG{__DIE__} = sub { ; };

推荐使用第二种方法，因为可重用性比较高。具体使用的方法，如下：

use strict;

local $SIG{__DIE__}=sub {a();};

while(<STDIN>){
  if ($_ == 4){
  die "hello:$!";
  }

}

sub a
{
  sleep 5;
}


执行结果：如果用户输入为4，则先暂停5秒后，再打印"hello:..."
或者：

local $SIG{__DIE__}=\&a;

也可以。

通用信号归纳起来可以组成以下列表:
=============================================================
信号名 值 标注 解释
------------------------------------------------------------------------
HUP 1 A 检测到挂起
INT 2 A 来自键盘的中断
QUIT 3 A 来自键盘的停止
ILL 4 A 非法指令
ABRT 6 C 失败
FPE 8 C 浮点异常
KILL 9 AF 终端信号
USR1 10 A 用户定义的信号1
SEGV 11 C 非法内存访问
USR2 12 A 用户定义的信号2
PIPE 13 A 写往没有读取者的管道
ALRM 14 A 来自闹钟的定时器信号
TERM 15 A 终端信号
CHLD 17 B 子进程终止
CONT 18 E 如果被停止则继续
STOP 19 DF 停止进程
TSTP 20 D tty键入的停止命令
TTIN 21 D 对后台进程的tty输入
TTOU 22 D 对后台进程的tty输出
------------------------------------------------------------------------
说明:上表中‘值’列下没有列出的值所对应的信号为系统调用的非标准信号，在此
文不予以探讨。上表中的第三列‘标注’定义了当进程接受到信号后的操作，
如:
A-----终止进程
B-----忽略进程信号
C-----终止进程并卸下内核
D-----停止进程
E-----恢复进程
F-----不能截取或忽略进程信号
=============================================================