perl运行子进程时，如何捕获ctrl + c

yuxi1988

脚本中捕获ctrl + c 的code如下:
    $SIG{INT}=$SIG{TERM} = \&monitor(\$tty,\$user);;
   
     sub monitor {
           my ($tty, $user)= @_;
           my @proc_info = `ps -ef |grep $$user |grep common_shell`;
           foreach $tmp (@proc_info) {
              if ($tmp =~ /$$user\s+(\d+)\s+.*?bin\/common_shell_exec.*?/) {
             `kill -s 9 $1`;
        }
     }

不过有个问题，就是外部调用dc_shell这个程序时，在程序在运行到该子进程内部时，就无法正确调用monitor子进程,如下所示：
   $SIG{INT}=$SIG{TERM} = \&monitor(\$tty,\$user);
    `dc_shell -f *.tcl`;
     sub monitor {
           my ($tty, $user)= @_;
           my @proc_info = `ps -ef |grep $$user |grep common_shell`;
           foreach $tmp (@proc_info) {
              if ($tmp =~ /$$user\s+(\d+)\s+.*?bin\/common_shell_exec.*?/) {
             `kill -s 9 $1`;
        }
     }