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

fzhcl

有文件包含下面内容。查找Formula行含有heapdump的文字。然后显示 Name/ Description /Formula. 谢谢了。

Name           : JavaCoreHeap_1_Crit
Description    : AWF#15042
Type            : UNIX OS
Formula        : MFA_01a/heapdump OR javacore
Distribution   : cpomfaap01

Name           : CORE_FILES
Description    : AWF# 16145, LZ
Type            : UNIX OS
Formula        : File_Information.Path
Distribution   : ecasdm36:KUX

Name           : JavaCoreHeap_2_Crit
Description    : AWF#15042,
Type            : UNIX OS
Formula        : /td/logs/WebLogs/MFA_02a
Distribution   : cpomfaap02:KUX,scomfaap02:KUX

Name            : Core_Files_Crit
Description    : moved over from ITM5
Type             : UNIX OS
Formula        : heapdump
Distribution   : p1bwap32:KUX,p1bwap33:KUX

需要的结果如下：

Name            : JavaCoreHeap_1_Crit
Description    : AWF#15042
Formula         : MFA_01a/heapdump OR javacore

Name            : Core_Files_Crit
Description    : moved over from ITM5
Formula        : heapdump

huang6894

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

fzhcl

不好意思，我刚开始学perl, 是这样的吗？ 运行过程出现这样的错误：

Use of uninitialized value in join or string at ./tt line 8, <DATA> chunk 1.
Use of uninitialized value in join or string at ./tt line 8, <DATA> chunk 1.

Use of uninitialized value in pattern match (m//) at ./tt line 8, <DATA> chunk 1.

#!/usr/bin/perl -w
use warnings;
use strict;
my @tmp;
while(<DATA>) {
        $/="\n\n";
        @tmp=split("\n");
        print join("\n",@tmp[0,1,3]);print "\n\n" if $tmp[3]=~/heapdump/;

}
__DATA__
Name                   : TD_OMFA_JavaCoreHeap_1_Crit
Description            : AWF#15042 &14935 , Date14Jan2013, Creator JA
Type                   : UNIX OS
Formula                : VALUE File_Information.File *EQ javacore*
Distribution           : cpomfaap01:KUX,scomfaap01:KUX

Name                   : TD_WEBSPHERE_CORE_FILES_3646_Cr
Description            : AWF# 16145, LZ
Type                   : UNIX OS
Formula                : heapdump
Distribution           : ecasdm36:KUX,ecasdm46:KUX

Name                   : TD_OMFA_JavaCoreHeap_2_Crit
Description            : AWF#15042, Date14Jan2013, Creator JA
Type                   : UNIX OS
Formula                : *EQ javacore*
Distribution           : cpomfaap02:KUX,scomfaap02:KUX

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

复制代码

lyb3708621

回复 4# huang6894

精炼，还是想追问一下，貌似如下也行，但一般不怎么用，能说说好坏吗？
while(<DATA>) {
        print $_.$/ if ( /Formula.*heapdump.*\nDistribution/ms );

}
   

fzhcl

谢谢huang6894 。 非常好

fzhcl

回复 5# lyb3708621


    这个也不错，但是print 所有的$_ 如果Formula   有 *heapdump*， 这样把多余的行也打印出来了。 but anyway,在这个script中， 重点是学了（$_.$/）。谢谢。

结果如下：

Name                   : TD_WEBSPHERE_CORE_FILES_3646_Cr
Description            : AWF# 16145, LZ
Type                   : UNIX OS
Formula                : heapdump
Distribution           : ecasdm36:KUX,ecasdm46:KUX