Perl脚本按CTRL+C无法退出的解决办法

；有时候perl脚本里执行多次循环，当键盘上按了CTRL+C键想中途退出，发现会无法停止脚本执行。
可通过脚本里加入自定义的SIGINT信号处理程序来解决这个问题。

#!/usr/bin/perl$SIG{INT} = sub {    print "you has enter the CTRL+C keys,now exit\n";    exit 0;};    ## main perl ##    for($run_cnt=0;$run_cnt<100;$run_cnt++)    {        ($sec,$min,$hour,$day,$mon,$year,$weekday,$yday,$fg) = localtime(time());        $seed = $mon.$day.$hour.$min.$sec;        system("./simv -l simv_$seed.log +ntb_random_seed=$seed");    }    exit 0;