print lines between 2 strings

fzhcl

Hi Everyone,

sorry I can't type in Chinese at the moment.

I have a file A like this, and I want to print lines between FFL -- Total FFL,

FileA,
,,,FFK HC,,,
,,,,FFK+300176
,,,,FFK+300177
,,,,FFK+300178
,,,Total FFK ,,
,,,FFL 156 PHOT
,,,,FFL-00000
,,,,FFL+30017
,,,,FFL+30020
,,,,FFL 156 PHO
,,,Total FFL 15
,,,FFA 156 PHOT
,,,,FFA-00000
,,,,FFL+30017
,,,,FFL+30020
,,,,FFA 156 PHO
,,,Total FFA 15


output :
,,,FFL 156 PHOT
,,,,FFL-00000
,,,,FFL+30017
,,,,FFL+30020
,,,,FFL 156 PHO
,,,Total FFL 15

Thanks in advance, appreciate your help.

rubyish

biru:

1. while (<DATA>) {
   
2.     print if /^,,,FFL/ .. /^,,,Total FFL/;
   
3. }
   
4. 
   
5. __DATA__
   
6. ,,,FFK HC,,,
   
7. ,,,,FFK+300176
   
8. ,,,,FFK+300177
   
9. ,,,,FFK+300178
   
10. ,,,Total FFK ,,
    
11. ,,,FFL 156 PHOT
    
12. ,,,,FFL-00000
    
13. ,,,,FFL+30017
    
14. ,,,,FFL+30020
    
15. ,,,,FFL 156 PHO
    
16. ,,,Total FFL 15
    
17. ,,,FFA 156 PHOT
    
18. ,,,,FFA-00000
    
19. ,,,,FFL+30017
    
20. ,,,,FFL+30020
    
21. ,,,,FFA 156 PHO
    
22. ,,,Total FFA 15

复制代码

fzhcl

回复 2# rubyish


谢谢。非常好用。
检讨一下，google的时候用的关键词不对，没有找到合适的。一直用（.*)去试。


   

sunzhiguolu

1. perl -0nle 'print $1 while(/^(,+FFL.+?\bTotal\N+)/gms)' f

复制代码