fork中使用flock，输出依旧混乱

picbhan

使用fork创建多进程后想在子进程中输出日志信息，所有信息都输出到同一个文件中，但是经常出现消息混乱的现象，所以使用flock锁定输出句柄，不过测试依旧出现混乱的现象，不知何故。
另外，不知道有没有其他更简单的方法可以记录日志，最好能稍微详细点介绍下。
下面是我测试用的代码，输出中有混乱。

1. use strict;
   
2. use warnings;
   
3. use Fcntl qw':flock SEEK_END';
   
4. 
   
5. 
   
6. 
   
7. my        $to_file_name = 'log';                # input file name
   
8. 
   
9. unlink 'log';
   
10. 
    
11. sub lock {
    
12.     my ($fh) = @_;
    
13.     flock($fh, LOCK_EX) or die "Cannot lock  - $!\n";
    
14.     seek($fh, 0, SEEK_END) or die "Cannot seek - $!\n";
    
15. }
    
16. sub unlock {
    
17.     my ($fh) = @_;
    
18.     flock($fh, LOCK_UN) or die "Cannot unlock - $!\n";
    
19. }
    
20. open  my $to, '>>', $to_file_name
    
21. or die  "$0 : failed to open  output file '$to_file_name' : $!\n";
    
22. 
    
23. my @childs;
    
24. for (0 .. 5) {
    
25.     my $pid = fork();
    
26.     die unless defined $pid;
    
27.     if ($pid == 0) {
    
28.         my $i = 0;
    
29.         lock($to);
    
30.         while ($i++ < 1000) {
    
31.             my $t = localtime; print {$to} "$t. $: $i\n";
    
32.         }
    
33.         unlock($to);
    
34. #        close $to;
    
35.     }
    
36.     else { push @childs, $pid; }
    
37. }
    
38. waitpid($_, 0) for @childs;
    
39. close  $to
    
40. or warn "$0 : failed to close output file '$to_file_name' : $!\n";
    

复制代码

另外有一个疑惑，就是fork把所有变量复制一份到子进程中，这样的话在子进程中关闭在父进程中打开的文件句柄按理应该不会影响其他子进程，但是上面的例子中在子进程中关闭句柄会报错，不解。

laputa73

记在不同的文件里

picbhan

laputa73 发表于 2013-05-06 18:47
记在不同的文件里

是程序运行日志，难道要一个一个去查看？

laputa73

很奇怪吗?每个进程记一个日志很正常啊.
或者你可以用一个单独的进程来记日志,就像syslog,log4j

moonlucifer

呃, 书上说perl的fork后的fd是共享的, 并非拷贝.......

对于记日志可以每个进程重新open文件

picbhan

回复 4# laputa73


    有没有perl版本的syslog？

laputa73

use Sys::Syslog;
use Sys::Syslog qw (EFAULT setlogsock);