Perl风格：将程序拆分为独立进程

1998年1月1日，作者：Tom Christiansen

• 学习如何使用特殊的open形式。（也参见TSA中的tgent）。

      # from PCB 16.5
      head(100);
      sub head {
          my $lines = shift || 20;
          return if $pid = open(STDOUT, "|-");
          die "cannot fork: $!" unless defined $pid;
          while (<STDIN>) {
              print;
              last if --$lines < 0;
          }
          exit;
      }
  

转到面向数据编程
返回分解复杂任务
回到索引

版权所有 © 1998，Tom Christiansen。保留所有权利。