如何遍历管道中的数据？

Question

我发现一些代码可以在Perl中2个进程通过管道进行通信。 例：

if ($pid = fork) {  
      close $reader;  
      print $writer "Parent Pid $$ is sending this\n";  
      close $writer;  
      waitpid($pid,0);   
}   
else {  
      close $writer;  
      chomp($line = <$reader>);  
      print "Child Pid $$ just read this: `$line'\n";  
      close $reader;  
      exit;  
}   

现在我有以下问题：

1. 是否可以使读取器从管道中读取，然后像循环一样阻塞直到新数据从管道中出来？
2. 如果是，当父进程没有要发送的数据时，杀死子进程的方法是什么？
3. 每个程序有多少个打开的读/写管道有限制吗？ 例如，如果我分叉10个进程并有20个管道（10个读/ 10个写），这是一个坏主意吗？

如果问题太基本了，我很抱歉，但是我的经验是使用另一种语言的线程。

Answer 1

有一些重要的警告（ * ），Perl中对管道的I / O与其他任何文件句柄的I / O非常相似。 readline （ <> ）操作符将等待管道上的输入，就像从套接字或STDIN进行输入一样。 当您close管道的写入端时，读取端将接收文件结尾（而readline将返回undef ）。 我可以通过对脚本进行一些小的修改来演示这些概念：

pipe $reader, $writer;

if ($pid = fork) {  
      close $reader;  
      sleep 5;
      for (1..10) {
          print $writer "Parent Pid $$ is sending this\n";  
      }
      close $writer;  
      waitpid($pid,0);   
}   
else {  
      close $writer;  
      # <$reader> will block until parent produces something
      # and will return undef when parent closes the write end of the pipe
      while ($line = <$reader>) {
          chomp($line);
          print "Child Pid $$ just read this: `$line'\n";  
      }
      close $reader;  
      exit;  
}

3 。 通常，操作系统对进程中打开的文件句柄的数量有限制 ，并且打开的管道句柄会以此值计，但是10或20个管道不会有问题。

*一个重要的警告是管道具有小的缓冲区大小，在某些OS上限制很小。 如果填充此缓冲区，则管道的写端可能会阻塞写操作，直到读端从缓冲区中取出某些东西为止。 如果您不仔细管理读写，则程序可能会死锁。