有个文本匹配搜素的问题 求思路

songyc_2015

回复 1# david_95

1. perl -lne 'if($flag&&!$kuo){print $str;last}$flag=1 if / +width:/;$kuo++ if $flag&&/{/;$kuo-- if $flag&&/}/;$str.=$_."\n" if $flag' file

复制代码

1. $cat test.pl
   
2. #!/usr/bin/env perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $str = "width:";
   
7. my ($flag, $kuo, $rs) = (0, 0, "");
   
8. while (<ARGV>)
   
9. {
   
10.         if ($flag and $kuo == 0)
    
11.         {
    
12.                 print "rs=[$rs]\n";
    
13.                 $flag = 0;
    
14.                 last;
    
15.         }
    
16.         $flag = 1 if / +$str/;
    
17.         $kuo++ if $flag and /{/;
    
18.         $kuo-- if $flag and /}/;
    
19.         $rs .= $_ if $flag;
    
20. }
    
21. $perl test.pl file

复制代码