一个sleep 问题！！！！

fucj

#!/usr/bin/perl
print "$$\n";
$retval=fork();
if ($retval==0) {
                print "child id=$$\n";
                sleep (100);
        }
else {
print "parent id=$$\n";
};



为什么这里的sleep，没有让程序停100秒,怎么能让子进程暂停呢？谢谢！

yybmsrs

为什么说子进程没有休息？

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. print "$$\n";
   
4. $retval=fork();
   
5. if ($retval==0) {
   
6.         print "child id=$$\n";
   
7.         sleep (5);
   
8.          print "Sleep 5\n";
   
9. }
   
10. else {
    
11.         print "parent id=$$\n";
    
12. }
    
13. <>;

复制代码

实际上停了，只是你没看见，不过100S，等死个人，改5S了！

羲之遗韵

楼上正解。

fucj

不知道为什么，我的程序是直接执行的，没有停5秒

wonderall01

#!/usr/bin/perl
#
print "$$\n";
$retval=fork();
if($retval==0)
{
        print "sleep 5\n";
        sleep (5);
        print "child pid=$$\n";
}
else
{
        print "parent pid=$$\n";
}
你把打印信息放在前面这样就好观察了。当程序结束回到终端时，只输出父进程id，此时子进程还在运行，你耐心等会会在终端输出子进程id

wonderall01

回复 7# reallyfly_1
#!/usr/bin/perl
#
$retval=fork();
if($retval==0)
{
                print "child pid=$$\n";
}
else
{
        sleep(5);
        print "parent pid=$$\n";
}
按照上面说的，子进程退出会激活睡眠中的父进程，怎么这个程序不是这个结果呢