5

在我正在编写的 Perl 脚本中,我遇到了一个问题,我阻塞了INTandQUIT信号,在反引号内执行一个进程,然后解除阻塞INTandQUIT信号。我想防止 aINT或 aQUIT到达子进程并杀死它。

该脚本在代码中的正确位置成功地阻塞和解除阻塞,但是,它不会延迟信号并在它处于阻塞模式时执行我配置的处理程序,正如许多参考资料所说的那样。我知道它正在解除阻止,因为我可以在阻止或解除阻止命令之前或之后发送一个SIGINT并且它受到尊重。

操作系统:Linux 2.6.30 Perl 版本:5.8.8

代码片段:

#!/usr/local/bin/perl

use POSIX qw(:signal_h);

$SIG{'INT'} = 'gracefulExit';
sub gracefulExit { print "Caught Signal = GOOD\n"; exit; }

print "Recieving a SIGINT works here\n";
sleep 5;
my $sigset = POSIX::SigSet->new;
my $blockset = POSIX::SigSet->new(SIGINT);
sigprocmask(SIG_BLOCK, $blockset, $sigset) or die "dying at block...\n";
print "Recieving a SIGINT doesn't work here [GOOD!] and is NOT delayed [WHY!?].\n";
`/bin/sleep 5`;
sigprocmask(SIG_UNBLOCK, $blockset) or die "dying at unblock...\n";
print "Recieving a SIGINT works here again [GOOD!]\n";
sleep 5;
print "Exited without receiving a signal\n";
4

1 回答 1

1

我几乎可以肯定 Randal 在上面的评论中指出了这一点,但正确的测试是检查 strace 以验证您期望发生的信号系统调用实际上是。更一般地说,在系统调用级别工作时,您希望避免与旨在抽象它们的库函数混合。

于 2009-10-06T22:40:55.107 回答