关于仙子的“简简单单管道”疑问

xiaobing927

原文“open过程中实际会发生一个fork过程，这个fork对父进程返回子进程的pid，通常是个正整数；对子进程返回0”

这句话不太懂，open是open，fork是fork，翻了好几本书，没有说open操作实际有fork过程，关于这点，大牛们能否深入的讲解下？不胜感激呀

兰花仙子

fork是指系统调用。

perl -le 'open P,"tail -f /etc/passwd|";while(<P>){print}'

pstree看一下：
+-bash---perl---tail

tail是perl打开的子进程。

xiaobing927

是不是说，使用open的时候实际会发生fork系统调用？学习了

兰花仙子

是不是说，使用open的时候实际会发生fork系统调用？学习了
xiaobing927 发表于 2010-08-13 15:02

    这个，看怎么open哦。。Perl的open太复杂了。

perldoc -f open

socyno

我怎么觉得不太像是真正的fork吧，起码我知道在 windows 下这个fork就是perl 自身模拟出来的一个东东，资源占用相当大，而且不太稳定的说好像有些。 只是个人理解，还请高手指教。

黑色阳光_cu

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. open(PIPE, "-|", "ls");
   
7. print <PIPE>;
   

复制代码

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. substr($^O, 0, 2) ne "MS" or die "Cannot running undef Windows!\n";
   
7. 
   
8. defined (my $pid = open(PIPE, "-|")) or die "Fork fail!\n";
   
9. if ($pid != 0)
   
10. {
    
11.         print <PIPE>;
    
12.         waitpid($pid, 0);
    
13. }
    
14. else
    
15. {
    
16.         exec("ls");
    
17.         exit(1);
    
18. }
    

复制代码

1. 
   
2. #!/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. substr($^O, 0, 2) ne "MS" or die "Cannot running undef Windows!\n";
   
8. 
   
9. pipe(PIPE, W);
   
10. defined (my $pid = fork()) or die "Fork fail!\n";
    
11. if ($pid != 0)
    
12. {
    
13.         close W;
    
14.         print <PIPE>;
    
15.         waitpid($pid, 0);
    
16. }
    
17. else
    
18. {
    
19.         close PIPE;
    
20.         open(STDERR, ">&", *STDOUT);
    
21.         open(STDOUT, ">&", *W);
    
22.         close W;
    
23.         exec("ls");
    
24.         exit(1);
    
25. }
    

复制代码

黑色阳光_cu

上面的代码演示，open一个管道时 for read 时，大概产生了什么动作。