学习是很艰苦的事情，又遇着看不懂的了

meihuaqi

1. head(100);
   
2. while (<>) {
   
3.     print;
   
4. }
   
5. 
   
6. sub head {
   
7.     my $lines = shift || 20;
   
8.     return if $pid = open(STDOUT, "|-");
   
9.     die "cannot fork: $!" unless defined $pid;
   
10.     while (<STDIN>) {
    
11.         print;
    
12.         last unless --$lines ;
    
13.     }
    
14.     exit;
    
15. }
    

复制代码

############

好心的人给解释下这句是干啥的

$pid = open(STDOUT, "|-";

尤其是 "|-" 是什么东西啊

meihuaqi

5分钟了，还是0回复，现在是午休时间吗{:3_186:}

meihuaqi

再发一段类似的代码，个人觉得很有用的东西，无聊的同学可以试一下

1. number();                   # push number filter on STDOUT
   
2. quote();                    # push quote filter on STDOUT
   
3. 
   
4. while (<>) {                # act like /bin/cat
   
5.     print;
   
6. }
   
7. 
   
8. close STDOUT;               # tell kids we're done--politely
   
9. exit;
   
10. 
    
11. sub number {
    
12.     my $pid;
    
13.     return if $pid = open(STDOUT, "|-");
    
14.     die "cannot fork: $!" unless defined $pid;
    
15.     while (<STDIN>) { printf "%d: %s", $., $_ }
    
16.     exit;
    
17. }
    
18. 
    
19. sub quote {
    
20.     my $pid;
    
21.     return if $pid = open(STDOUT, "|-");
    
22.     die "cannot fork: $!" unless defined $pid;
    
23.     while (<STDIN>) { print "> $_" }
    
24.     exit;
    
25. }
    
26. 
    

复制代码

运行效果：
bsd# perl a.pl
hello
1: > hello
hi
2: > hi

meihuaqi

只看到浏览次数在增加，但是没人发言。。。
莫非那个浏览次数是我自己刷新的次数{:3_186:}

meihuaqi

为了维护世界的和平，为了防止世界被破坏，坚持爱和真实的罪恶，最有媚力的反派人物，武汉小星，
跨越银河的火箭队的这个人，白色的未来有光明的明天在等待。
喵喵…… 宣布这里的人死刑！

meihuaqi

回复 3# meihuaqi

根据试验结果
上面的代码新建两个子进程，过滤主进程的输出，先由 quote过滤，再由number过滤，不过还是不明白

1. "|-"

复制代码

是啥东西
有谁知到相关的文档在哪告诉我一下，谢谢

meihuaqi

{:3_199:}知道了

id_for_fun

zhlong8

星期天楼主急什么啊

兰花仙子

回复  meihuaqi

根据试验结果
上面的代码新建两个子进程，过滤主进程的输出，先由 quote过滤，再由num ...
meihuaqi 发表于 2010-12-26 14:36

    看看偶的精华帖 简简单单讲管道  里面描述很清楚