perl 多进程如何控制输出

qiuzhimajia

我写了一个多进程的程序，但是每个进程都会往终端输出，运行时输出杂乱无章，敢问各位如何控制输出，谢谢
如下代码：

1. my @rno1 = (100..109);
   
2. my @rno2 = (110..119);
   
3. my @rno3 = (120..129);
   
4. my @rno4 = (130..139);
   
5. my @rno5 = (140..149);
   
6. my @rno6 = (150..159);
   
7. my @rno7 = (160..169);
   
8. my @rno8 = (170..179);
   
9. 
   
10. my %rno = (
    
11.         no1 => "@rno1",
    
12.         no2 => "@rno2",
    
13.         no3 => "@rno3",
    
14.         no4 => "@rno4",
    
15.         no5 => "@rno5",
    
16.         no6 => "@rno6",
    
17.         no7 => "@rno7",
    
18.         no8 => "@rno8",
    
19. );
    
20. 
    
21. while ( my ($key,$value) = each(%rno)) {
    
22.         my $child=fork();
    
23.         if ($child) {
    
24.                 print "$child start!\n";
    
25.         }else {
    
26.                 &printmy( $value );
    
27.                 print "children done!";
    
28.                 exit;
    
29.         }
    
30. 
    
31. }
    
32. 
    
33. sub printmy(){
    
34.         print "@_\n";
    
35. }

复制代码

各自的输出都会交叉的，请教一个方案可以避开混乱输出

兰花仙子

用一个进程来集中输出。
这个需求比较奇怪吧。。
就算写日志，也只需表明进程ID、时间等信息就清楚了。

qiuzhimajia

能否给个例子看下

dajun

貌似perl里多个进程同时print 不同的内容是不会出现交叉的内容的,
比如
进程1 print "aaa bbb ccc\n";
进程2 print "eee ffff ggg\n";

他们是不会出现错乱的, 只是出现的顺序没办法确定而已

qiuzhimajia

貌似perl里多个进程同时print 不同的内容是不会出现交叉的内容的,
比如
进程1 print "aaa bbb ccc\n";
...
dajun 发表于 2010-07-29 11:17

   试了一下，好像不是

dajun

看了你的代码, 可以这样做, 但是基本上失去了多进程的意义:

1. 
   
2. 
   
3. my @rno1 = (100..109);
   
4. my @rno2 = (110..119);
   
5. my @rno3 = (120..129);
   
6. my @rno4 = (130..139);
   
7. my @rno5 = (140..149);
   
8. my @rno6 = (150..159);
   
9. my @rno7 = (160..169);
   
10. my @rno8 = (170..179);
    
11. 
    
12. my %rno = (
    
13.     no1 => "@rno1",
    
14.     no2 => "@rno2",
    
15.     no3 => "@rno3",
    
16.     no4 => "@rno4",
    
17.     no5 => "@rno5",
    
18.     no6 => "@rno6",
    
19.     no7 => "@rno7",
    
20.     no8 => "@rno8",
    
21.     );
    
22. my ($key, $value);
    
23. foreach $key ( sort { $a cmp $b } keys %rno ) {
    
24.     $value = $rno{$key};
    
25.     my $child=fork();
    
26.     if ($child) {
    
27.         print "$child start!\n";
    
28.         wait;
    
29.     }else {
    
30.         &printmy( $value );
    
31.         print "children done!\n";
    
32.         exit;
    
33.     }
    
34. 
    
35. }
    
36. 
    
37. sub printmy(){
    
38.     print "@_\n";
    
39. }
    
40. 
    

复制代码

qiuzhimajia

看了你的代码, 可以这样做, 但是基本上失去了多进程的意义:
dajun 发表于 2010-07-29 13:43

    为什么，我写的只不过是一个简单的例子（基本结构是这样的）

dajun

我修改的是最简单的让结果有序的按照100-170来打印的办法,

因为在父进程里加了wait;
也就是让子进程一个一个按顺序执行, 和单进程没什么差别,所以失去了多进程的意义,

彻底解决的办法就是用IPC, 你自己研究研究吧

wind_ch

要么用仙子的建议，像日志那样标识清楚，要么就输出到不同的文件吧。

crazy_tom

要么用仙子的建议，像日志那样标识清楚，要么就输出到不同的文件吧。
wind_ch 发表于 2010-07-29 16:10

    不知道perl 有没有重定向输出的函数或是更改输出缓冲区的函数，谢谢