perl – $SIG {INT} =’IGNORE’不使用Net :: OpenSSH

'As for "system" builtin,"SIGINT" and "SIGQUIT" signals are blocked.  (see "system" in perlfunc).'

实际上,这似乎并不正确,因为当接收到SIGINT时,子节点中的$ssh->系统会立即终止,即使我明确要先“忽略”它：

use warnings;
use strict;
use POSIX ":sys_wait_h";
use Net::OpenSSH;

my $CTRLC=0;
$SIG{CHLD}='IGNORE';

sub _int_handler {
  $CTRLC++;
  print "CTRL-C was pressed $CTRLC times!!!n";
}

$SIG{INT}='IGNORE';
my $SSH=Net::OpenSSH->new('testhost',forward_agent => 1,master_stderr_discard => 1,master_opts => [ -o =>"PasswordAuthentication=no"]);
$SIG{INT}=&;_int_handler;
sub _ssh {
  $SIG{INT}='IGNORE';
  $SSH->system('sleep 3; sleep 3');
#       system('sleep 3; sleep 3');
  print "Exiting Child!n";
  exit 0;
}

print "Starting shell ...n";
_ssh if not (my $PID=fork);
print $PID,"n";
waitpid ($PID,0);

当运行此代码并尝试在第一个“睡眠3”启动后立即中断时,“$SSH->系统”调用立即结束.

但是,如果您使用下面的本地“系统”语句,则会正确捕获SIGINT.

在我发现的Net :: OpenSSH的源代码中,$SIG {INT}也在“system”子系统中显式设置为“IGNORE”.我不知道为什么这不起作用.

我会感谢任何可能的解决方案,如果它意味着以不同的方式做事.最后,我只是想远程执行命令并仍然保护它们免受CTRL-C的攻击.

谢谢,

Mazze

更新：

感谢您输入@salva.我进一步剥离了东西,最后它似乎是ssh的“-S”标志：

$SIG{INT}='IGNORE';
# system('ssh -S /tmp/mysock lnx0001a -- sleep 3');
  system('ssh                lnx0001a -- sleep 3');

一旦使用“-S / tmp / mysock”变体,ssh似乎是可中断的,而不是其他.有没有人可以解释一下？
我应该发布一个新的独立问题吗？

再次感谢,

Mazze

更新2：

我把事情搞得更多,现在这完全没有任何perl范围.你可以在你的shell中做到这一点：

$trap '' INT
$ssh                lnx0001a -- sleep 3

现在不能打断.
但是,在我的情况下,以下内容仍然是可中断的：

$ssh -S /tmp/mysock lnx0001a -- sleep 3

使用CTRL-C,会立即中断.与root用户的情况与我的情况相同,但其他同事不会在其用户中看到此行为.我们比较了@ENV,但我们没有发现可能导致不同行为的原因.

你怎么样：在你的shell中“trap”’INT’后,“-S”版本是否可以中断？
(显然,您必须先为/ tmp / mysock创建一个主会话).

此致

Mazze