Perl的sleep函数问题请教

jacksting

在测试父进程向子进程发信号的时候，发现子进程的sleep函数的时间消逝不正确，干脆就是没什么用，但是父进程里面的sleep没有问题，请问是哪里出错了呢？代码如下：

#!/usr/bin/perl -w
# Test signals to child processes using kill.
use warnings;
use strict;
use POSIX qw(:signal_h :errno_h :sys_wait_h);

$SIG{ 'USR1' } = \&user1;

$| = 1;

sub user1
{
        $SIG{ 'USR1' } = \&user1;
        print("I've recvd SIGUSER1.\n");
}


if(my $pid = fork() ) {
        kill('USR1', $pid);
         print("I've just sent a signal.\n");
        sleep(3);
        print("Now, I'm going to send once more.\n");
        kill('USR1', $pid);
        print("Parent exit.\n");
}
elsif (defined($pid)) {
        print("My return pid is $pid, and my real pid is $$.\n");
        sleep(6);
        print("Kid exit.\n");
        exit();
}
else {
        print("Forking error...!\n");
}

wait();


运行结果是Kid很快就先打印退出，根本没有sleep.

dajun

你让小孩睡觉，但是马上就杀了他……

jacksting

原帖由 dajun 于 2007-2-1 15:20 发表
你让小孩睡觉，但是马上就杀了他……

楼上的兄弟能否说明白一点呢？Kid收到USR1只是会打印下吧？

jacksting

还是说Kid收到USR1以后的系统调用不能返回？

jacksting

嗯，原来跟Linux C的IPC一样的道理。刚才受误导了，谢谢2楼兄弟。

dajun

sorry，真是惭愧，我看的时候大意了，没看到你注册信号函数的那个地方，
现在我倒是糊涂了……

你的程序并不是每次运行都一样的结果的：

[root@rh39 mnt]# perl 1.pl

My return pid is 0, and my real pid is 11321.
I've just sent a signal.
I've recvd SIGUSER1.
Kid exit.

[root@rh39 mnt]# perl 1.pl

My return pid is 0, and my real pid is 11323.
I've just sent a signal.
I've recvd SIGUSER1.
Kid exit.

[root@rh39 mnt]# perl 1.pl
I've just sent a signal.

My return pid is 0, and my real pid is 11325.
I've recvd SIGUSER1.
Now, I'm going to send once more.
Parent exit.
I've recvd SIGUSER1.
Kid exit.

dajun

原帖由 jacksting 于 2007-2-1 15:30 发表
嗯，原来跟Linux C的IPC一样的道理。刚才受误导了，谢谢2楼兄弟。

c下好像也不会被杀死的（如果反复注册信号函数的话）