代码之家 › 专栏 › 技术社区 › Ricardo Marimon

在perl中接收到任何信号时,睡眠是否被中断?

daemon signals perl linux

Ricardo Marimon · 技术社区 · 15 年前

#!/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

USR1 使用向进程发送信号 kill -USR1 xxxxx . 结果不是我所期望的:

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

我得到两个连续的条目,一个来自信号处理子程序,另一个来自不断运行的循环。似乎每当 1美元

怎么回事?

1 回复 | 直到 14 年前

Ether 15 年前

睡眠被打断,因为你的程序将处理传入的信号,但是循环将继续(返回睡眠),直到接收到一个术语信号。这是记录在案的 sleep() 功能:

如果进程接收到诸如“SIGALRM”的信号,则可能被中断。

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

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

perldoc perlipc ,在几乎所有的unix编程书籍中 W. Richard Stevens . :)

推荐文章

st_clair_clarke · 为angular v19资源API创建可重复使用的加载器,其中包含2个不同类型的请求参数

1 年前

asimes · 从信号处理程序设置变量时,std::atomic或volatile是必需的吗

2 年前

Nevyan Dimitrov Neykov · 效果内部的角度信号()

2 年前

Christopher · 从角度信号中删除未定义的结果

2 年前

elfilado · 基于信号值分配Observable

2 年前

Harmonia · 如果在pselect期间出现信号,如何调用我的信号处理程序?

3 年前

cooligus · 信号更新不调用效果

3 年前

Shay · `waitpid`一个已经被waitpid'处理的进程

3 年前

FurioShow · 信号处理程序行为

8 年前

Panakotta00 · 带有(C++)子进程/线程或类似程序的Java进程

8 年前