signal in Perl (SIG)(Perl 中断/信号 处理)

The hash %SIG contains signal handlers for signals.
-- SIG 是一个公用的存储信号的一个哈希变量

[myang@mnsdev13:~/demo]$ cat sig.pl
#!/usr/local/bin/perl5
$SIG{TERM} = $SIG{INT} = \&yoursub ;
$i = 1;
while(1){
        sleep 1;
        print "$i\n";
        $i++;
}
sub yoursub{
    print "abc";
}

运行效果：
[myang@mnsdev13:~/demo]$ sig.pl
1
2
3
^Cabc4
5
6
^Cabc7
^Cabc8
^Cabc9
^Cabc10
^Cabc11
^Cabc12
^Cabc13
^Cabc14
^Cabc15
^Cabc16
^Cabc17
^Cabc18
19
20

ctrl-C 已经中断不了程序了，用kill -9处理吧