匹配两行之间并计数

nanshanjin

文件格式如下：
consensus
model
primary
primary
primary
primary
consensus
model
primary
primary
primary
primary
consensus
model
primary
primary
primary
primary
primary
primary
primary
consensus

匹配consensus之间的内容并计数，输出
consensus1 number1
consensus2 number2
。。。。
number1是第一个consensus1与第二个consensus2之间的数量，以此类推，文件很大，几万行吧

523066680

回复 1# nanshanjin

计算primary 还是 非consensus的行都算？

1. #http://bbs.chinaunix.net/thread-4289910-1-1.html
   
2. 
   
3. my $spec = "consensus";
   
4. my $line;
   
5. my ($mi, $ni) = (0, 0);
   
6. while ( $line = <DATA> )
   
7. {
   
8.     if ($line=~/^consensus\r?\n?/i)
   
9.     {
   
10.         printf "%s%d %d\n", $spec, $mi, $ni if ($mi > 0);
    
11.         $mi++;
    
12.         $ni = 0;
    
13.     }
    
14.     else
    
15.     {
    
16.         $ni++;
    
17.     }
    
18. }
    
19. 
    
20. __DATA__
    
21. consensus
    
22. model
    
23. primary
    
24. primary
    
25. primary
    
26. primary
    
27. consensus
    
28. model
    
29. primary
    
30. primary
    
31. primary
    
32. primary
    
33. consensus
    
34. model
    
35. primary
    
36. primary
    
37. primary
    
38. primary
    
39. primary
    
40. primary
    
41. primary
    
42. consensus
    

复制代码

输出
consensus1 5
consensus2 5
consensus3 8