查找匹配的行，然后显示一段的内容

huang6894

$/="/n/n";
@tmp=(split /\n/);
print join("\n",@tmp[0,1,3]) if $tmp[3]=~/heapdump/;

huang6894

回复 3# fzhcl

1. #!/usr/bin/perl -w
   
2. use warnings;
   
3. use strict;
   
4. $/="\n\n";
   
5. while(<DATA>) {
   
6.         my @tmp=split("\n");
   
7.         print join("\n",@tmp[0,1,3]).$/ if $tmp[3]=~/heapdump/;
   
8. 
   
9. }
   
10. __DATA__
    
11. Name                   : TD_OMFA_JavaCoreHeap_1_Crit
    
12. Description            : AWF#15042 &14935 , Date14Jan2013, Creator JA
    
13. Type                   : UNIX OS
    
14. Formula                : VALUE File_Information.File *EQ javacore*
    
15. Distribution           : cpomfaap01:KUX,scomfaap01:KUX
    
16. 
    
17. Name                   : TD_WEBSPHERE_CORE_FILES_3646_Cr
    
18. Description            : AWF# 16145, LZ
    
19. Type                   : UNIX OS
    
20. Formula                : heapdump
    
21. Distribution           : ecasdm36:KUX,ecasdm46:KUX
    
22. 
    
23. Name                   : TD_OMFA_JavaCoreHeap_2_Crit
    
24. Description            : AWF#15042, Date14Jan2013, Creator JA
    
25. Type                   : UNIX OS
    
26. Formula                : *EQ javacore*
    
27. Distribution           : cpomfaap02:KUX,scomfaap02:KUX

复制代码