如何一次读一整块文本？［解决了］

YGC

1. ID   cel-let-7         standard; RNA; CEL; 99 BP.
   
2. XX
   
3. AC   MI0000001;
   
4. XX
   
5. DE   Caenorhabditis elegans let-7 stem-loop
   
6. XX
   
7. RN   [1]
   
8. RX   PUBMED; 11679671.
   
9. RA   Lau NC, Lim LP, Weinstein EG, Bartel DP;
   
10. RT   "An abundant class of tiny RNAs with probable regulatory roles in
    
11. RT   Caenorhabditis elegans";
    
12. RL   Science. 294:858-862(2001).
    
13. XX
    
14. RN   [2]
    
15. RX   PUBMED; 12672692.
    
16. RA   Lim LP, Lau NC, Weinstein EG, Abdelhakim A, Yekta S, Rhoades MW, Burge CB,
    
17. RA   Bartel DP;
    
18. RT   "The microRNAs of Caenorhabditis elegans";
    
19. RL   Genes Dev. 17:991-1008(2003).
    
20. XX
    
21. RN   [3]
    
22. RX   PUBMED; 12747828.
    
23. RA   Ambros V, Lee RC, Lavanway A, Williams PT, Jewell D;
    
24. RT   "MicroRNAs and other tiny endogenous RNAs in C. elegans";
    
25. RL   Curr Biol. 13:807-818(2003).
    
26. XX
    
27. RN   [4]
    
28. RX   PUBMED; 12769849.
    
29. RA   Grad Y, Aach J, Hayes GD, Reinhart BJ, Church GM, Ruvkun G, Kim J;
    
30. RT   "Computational and experimental identification of C. elegans microRNAs";
    
31. RL   Mol Cell. 11:1253-1263(2003).
    
32. XX
    
33. RN   [5]
    
34. RX   PUBMED; 17174894.
    
35. RA   Ruby JG, Jan C, Player C, Axtell MJ, Lee W, Nusbaum C, Ge H, Bartel DP;
    
36. RT   "Large-scale sequencing reveals 21U-RNAs and additional microRNAs and
    
37. RT   endogenous siRNAs in C. elegans";
    
38. RL   Cell. 127:1193-1207(2006).
    
39. XX
    
40. DR   RFAM; RF00027; let-7.
    
41. DR   WORMBASE; C05G5/12462-12364; .
    
42. XX
    
43. CC   let-7 is found on chromosome X in Caenorhabditis elegans [1] and pairs to
    
44. CC   sites within the 3' untranslated region (UTR) of target mRNAs, specifying
    
45. CC   the translational repression of these mRNAs and triggering the transition
    
46. CC   to late-larval and adult stages [2].
    
47. XX
    
48. FH   Key             Location/Qualifiers
    
49. FH
    
50. FT   miRNA           17..38
    
51. FT                   /accession="MIMAT0000001"
    
52. FT                   /product="cel-let-7"
    
53. FT                   /evidence=experimental
    
54. FT                   /experiment="cloned [1-3,5], Northern [1], PCR [4]"
    
55. XX
    
56. SQ   Sequence 99 BP; 26 A; 19 C; 24 G; 0 T; 30 other;
    
57.      uacacugugg auccggugag guaguagguu guauaguuug gaauauuacc accggugaac        60
    
58.      uaugcaauuu ucuaccuuac cggagacaga acucuucga                               99
    
59. //

复制代码

文件格式如下，怎么样才能以//为终止符，一次读这一整块呢？

[ 本帖最后由 YGC 于 2008-1-3 17:27 编辑 ]

perljoker

特殊变量  $/  
是这个么？

fouter

open(FILE,"<$filename") or die "$!";
my $filestr;
foreach (<FILE>) {
      $filestr .= $_;
}
close(FILE);
while ($filestr =~ /(.*?\/\/)/msig){
       print $1;
}

YGC

thanks

就是它啦。

我记得在那看过，就是总想不起来。

__lxmxn__

原帖由 YGC 于 2008-1-3 17:26 发表
thanks

就是它啦。

我记得在那看过，就是总想不起来。

perldoc perlvar