如何提取介于某个区间的几行文字，区间的开始和结束可以用正则表达式描述

ly5066113

苯方法：

1. #! /bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $key;
   
7. 
   
8. while(<DATA>){
   
9.     if (/-!-/) {
   
10.         $key = 0;
    
11.     }
    
12.     if (/SUBCELLULAR LOCATION/) {
    
13.         print;
    
14.         $key = 1;
    
15.         next;
    
16.     }
    
17.     if ($key) {
    
18.         print;
    
19.     }   
    
20. }
    
21. 
    
22. __END__
    
23. CC   -!- FUNCTION: Rapidly .
    
24. CC   -!- CATALYTIC ACTIVITY: Acetylcholine.
    
25. CC   -!- SUBUNIT: Homotetramer; composed .
    
26. CC       Interacts with PRIMA1.
    
27. CC       anchor it to the basal
    
28. CC       (By similarity).
    
29. CC   -!- SUBCELLULAR LOCATION: Cell junction, synapse. Secreted (By
    
30. CC       similarity). Cell membrane; Peripheral membrane protein (By
    
31. CC       similarity).
    
32. CC   -!- SUBCELLULAR LOCATION: Isoform 2: Cell membrane;
    
33. CC       anchor; Extracellular side (By similarity).
    
34. CC   -!- ALTERNATIVE PRODUCTS:
    
35. CC       Event=Alternative splicing; Named isoforms=2;

复制代码

ly5066113

原帖由 flw 于 2008-6-20 13:13 发表

range operator 有一个内置的 state，相当于你的 $key，不过由它自己来维护，因此可读性更好。

恩，老大的方法确实非常优雅。但 ?! 这种东西，不是只读过一遍小骆驼的我所能理解的，呵呵。