Daten mehrerer Prozesse sammeln

[Siechfred]

Noch ein kleines Beispiel mit mehreren Prozessen:

use strict;  
use warnings;  
  
my @plist;  
my $z = 0;  
  
for (1..5) {  
  pipe(READER,WRITER);  
  my $pid = fork();  
  die $! if($pid == -1);  
  if($pid) {  
    close WRITER;  
    push @plist, <READER>;  
    wait;  
  }  
  else {  
    close READER;  
    chomp($z = <STDIN>);  
    print WRITER $z;  
    exit(0);  
  }  
}  
  
print join "\n", @plist;

Vielleicht hilft's.

Siechfred