用perl创建一个demon进程，为什么文件写不进去内容呢？

混人天成

1. use POSIX ;
   
2. sub demonize{
   
3.     chdir '/';
   
4.     umask 0;
   
5.     open STDIN,'/dev/null'   || die "can not change the stream of stdin:$!";
   
6.     open STDOUT,'>/dev/null' || die "can not change the stream of stdout:$!";
   
7.     open STDERR,'>/dev/null' || die "can not change the stream of stderr:$!";
   
8. 
   
9.     defined ($pid=fork) || die "can not fork a process:$!";
   
10.     exit if $pid;
    
11.     setsid || die "can not create session:$!";
    
12. }
    
13. 
    
14. 
    
15. &demonize;
    
16. open LOG,">>/dev02/ycq/test/log" ||die "can not open file:$!";
    
17. my $num=0;
    
18. while(1){
    
19.     $num ++;
    
20. #   system("/dev02/ycq/test/echo.sh");
    
21. #   system("echo /dev02/ycq/test/write.pl");
    
22. #   system("perl /dev02/ycq/test/echo.sh");
    
23.     print LOG "$num\n";
    
24.     sleep 1;
    
25. }

复制代码

这里为什么不能实现向log中写入信息？求指导！

I GOT IT.
输出存在缓冲！

sjdy521

STDOUT是行缓冲，普通的句柄是块缓冲，stackoverflow上可以结贴了。。