Форум программистов [Powered by Invision Power Board]

Код
 
#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;
use IO::Select;

my $s = new IO::Select; # селектор
my $Size = 3;
my $pid;

for(my $i=1; $i<$Size ; $i++)
{
      my ($reader, $writer);
      pipe($reader, $writer);
      $reader->autoflush(1);
      $writer->autoflush(1);
      $pid = fork;
      die "fork no good $!\n" unless defined $pid;
      $s->add($reader);
      unless($pid) {
              close $reader;
              for(1..3){
                      sleep(3 * $_);
                      print $writer "child($$) post to parent => $_$_$_\n" ;
              }
              close $writer;
              print "ended child PID $$\n";
              exit;
      }
}
my @ready;
if($pid) {
      if(@ready = $s->can_read(1)){
              foreach my $reader (@ready){
                  print "parent recvieved: $_" while <$reader> ;
              }
}

print "end parent\n";
wait();

while (@ready = $s->can_read(0))
{
      foreach my $reader (@ready){
                      print "parent recvieved: $_" while <$reader> ;
              }
      }
}