当 perl 接收到任何信号时睡眠会被中断吗？

Question

我有这个简单的 Perl 守护进程：

#!/usr/bin/perl

use strict;
use warnings;
use Proc::Daemon;

Proc::Daemon::Init;

my $continue = 1;

$SIG{TERM} = sub { $continue = 0 };
$SIG{USR1} = sub { do_process(1) };

# basic daemon                                                                                    

boxesd_log("started boxesd");

while ($continue) {
    do_process(0);
    sleep(30);
}

boxesd_log("finished boxesd");

exit(0);

# required subroutines                                                                            

sub do_process {
    my ($notified) = @_;
    boxesd_log("doing it $notified");
}

但是有一些东西无法正常工作。

当守护进程启动时，它每 30 秒记录一次，但没有按预期发出通知：

Sat Oct 30 21:05:47 2010 doing it 0
Sat Oct 30 21:06:17 2010 doing it 0
Sat Oct 30 21:06:47 2010 doing it 0

当我使用 kill -USR1 xxxxx 向进程发送 USR1 信号时，问题就出现了。输出不是我所期望的：

Sat Oct 30 21:08:25 2010 doing it 1
Sat Oct 30 21:08:25 2010 doing it 0

我得到两个连续的条目，一个来自信号处理子例程，另一个来自不断运行的循环。似乎只要收到 USR1 信号，睡眠就会被中断。

到底是怎么回事？

Answer 1

睡眠被中断，因为您的程序将处理传入信号，但循环将继续（返回睡眠）直到收到 TERM 信号。这是 sleep() 函数的记录行为：

如果进程收到“SIGALRM”等信号，可能会被中断。

请注意，如果您需要睡眠 30 秒，即使被信号中断，您也可以确定睡眠的秒数，然后再次睡眠剩余的时间：

while (1)
{
    my $actual = sleep(30);
    sleep(30 - $actual) if $actual < 30;
}

PS。您可以在 perldoc perlipc 以及 W.理查德·史蒂文斯。 :)