perl system怎么捕获ctrl+z？

chgan100

在perl里面，我用system调用了一个命令，但是用户在这个命令的执行过程中会有ctrl+z这种行为来想退出程序，怎么在perl脚本中来捕获和处理这种行为？

sjdy521

ctrl+z不是退出程序吧

bikong0411

$SIG{"SIGTSTP "}好像也不行

Cu_fans

$SIG{INT}

试下捕捉这个信号

chgan100

回复 3# bikong0411


    在perl这个主进程里面捕获$SIG{"SIGTSTP "}和 $SIG{"INT"}是可以处理主进程中的ctrl+z和ctrl+c的。
   但是在system这个命令实际上是重新创建了一个进程，所以在主进程里捕获子进程里的信号实际上是没有起作用的。

chgan100

回复 4# Cu_fans

在perl这个主进程里面捕获$SIG{"SIGTSTP "}和 $SIG{"INT"}是可以处理主进程中的ctrl+z和ctrl+c的。
   但是在system这个命令实际上是重新创建了一个进程，所以在主进程里捕获子进程里的信号实际上是没有起作用的。
   

sjdy521

回复 6# chgan100


    主进程，子进程都是属于一个进程组的
    一个信号整个进程组都应该是可以捕获到的

另外看楼主的意思，也是在主进程中捕获终端的信号，而不是捕获子进程的信号啊。

chgan100

回复 7# sjdy521


    我有写写过一个程序是：在等待用于输入的过程中，输入y继续，输入n退出，但是很多用户就不看提示，强制用ctrl+c或者ctrl+z或者有的更干脆用关掉ssh这种方式来退出，在这种情况下我捕获了$SIG{"SIGTSTP "}和 $SIG{"INT"}这两个信号是成功了。

  但是在另外一种情况是：主进程运行过程中，我用system调用了另外一个perl命令，在这个perl命令还在运行过程中用户使用ctrl+z想停止这个perl命令的运行并且退出整个程序。这种情况下在主进程里捕获$SIG{"SIGTSTP "}信号没有捕获成功。

举例说明：
下面这种情况是成功了：如果有ctrl+c或者ctrl+z行为就会调用errorsub函数。
###处理循环输入
sub cycinput
{
print RED,"\n\n\n*********************************************************************************\n",RESET;
print RED,"**如果要继续修改配置文件请输入Y或者y,如果不需要修改其他配置请输入n或N直接将改好的配置同步到服务器。\n",RESET;
print RED,"**如果没有输入n或N的话就重启服务则配置不会在服务器端生效，请注意！\n",RESET;
print RED,"**如果需要退出请输入q或Q，这个时候修改的配置会在部署平台生效，但是并没有同步到服务器\n",RESET;
print RED,"**如果要重启系统，请运行命令tremotecmd重启，谢谢。\n",RESET;
$SIG{TERM}=$SIG{INT}=$SIG{TSTP}=\&errorsub;
chomp($iscontinue=<STDIN>);

下面这种情况是不成功的：如果有ctrl+c或者ctrl+z行为就会直接退出
$iserr=system("export DEPLOY_PASSWORD=xxxx;/wls/bankdplysys/tools/deploytool dremotecmd -s $system -a $action |tee /home/banktest/logs/toperate.log/$system/$tremotecmdlog");
$SIG{TERM}=$SIG{INT}=$SIG{TSTP}=$SIG{HUP}=\&errorsub;

sjdy521

回复 8# chgan100


    额，怎么感觉讨论的东西和这个帖子的主题越来越远了。。
你第二个例子里，直接system一个子进程去执行命令，而在这个子进程中你根本没做信号捕获处理呀，你只在主进程里做了捕获处理呀。
主进程被咔嚓了，子进程当然也会被干掉

sjdy521

回复 8# chgan100


    我觉得楼主本来的意思就是怎么在主程序里捕获ctrl+z终止掉主进程，顺便也把system的子进程也干掉，不是讨论怎么样单单只干掉system子进程里的命令呢