[字符串匹配算法] 嵌套匹配

只是一个红薯

rubyish和眼镜哥的代码都非常好，能学习到不少东西，如果能加少许注释，我等更受益匪浅了，多谢{:3_193:} 回复 2# rubyish


   

rubyish

修正了一些錯誤:{:3_188:}

mcshell

{:3_186:} 学习了{:3_186:}

rubyish

只是一个红薯 发表于 2013-04-26 07:36
如果能加少许注释，我等更受益匪浅了，多谢 回 ...

少许注释:

1. sub parse {
   
2.     my @data = map /(\S.*\S)/, split /(if|end)/, shift;
   
3.     # @data: [ if, a then, if, b then, if, c then d, end, if, e then f, end, end, end ]
   
4.     my ( %i, %result );
   
5.     $data[$_] =~ /(if|end)/ and push @{$i{$1}}, $_ for 0 .. $#data;
   
6.     # %i: { if => [ 0, 2, 4, 7 ], end => [ 6, 9, 10, 11 ] }
   
7.     @{$i{if}} = reverse @{$i{if}};
   
8.     # reverse $i{if}:
   
9.     # %i: { if => [ 7, 4, 2, 0 ], end => [ 6, 9, 10, 11 ] }
   
10. 
    
11.     my @L = reverse 0 .. $#{$i{end}};
    
12.     # @L: [ 3, 2, 1, 0 ]
    
13.     for my $i ( 0 .. $#{$i{end}} ) {
    
14.         if ( $i{if}[$i] > $i{end}[$i] ) {
    
15.             # 7 > 6
    
16.             my $l;
    
17.             $i{if}[++$l] < $i{end}[$i] and last for @{$i{if}};
    
18.             # find first $i{if}[$l] < $i{end}[$i] 4 < 6; 4:index = $l = 1;
    
19.             @{ $i{if} }[ $i .. $l ] = reverse @{$i{if}}[$i .. $l];
    
20.             # %i: { if => [ 4, 7, 2, 0 ], end => [ 6, 9, 10, 11 ] }
    
21.             @L[$i .. $l] = ($L[$l]) x ($l - $i + 1);
    
22.             # @L: [ 2, 2, 1, 0 ]
    
23.         }
    
24.         my $join = "@data[$i{if}[$i] .. $i{end}[$i]]";
    
25.         # 0 .. $#{$i{end}} => 0 .. 3
    
26.         # join: if=> 4, end=> 6 = if c then d end
    
27.         # join: if=> 7, end=> 9 = if e then f end
    
28.         # join: if=> 2, end=> 10 = if b then if c then d end if e then f end end
    
29.         # join: if=> 0, end=> 11 = if a then if b then if c then d end if e then f end end end
    
30.         push @{$result{$L[$i]}}, $join;
    
31.     }
    
32.     \%result;
    
33. }

复制代码

rubyish

回复 7# kk861123


    3Q~{:3_203:} {:3_203:}

只是一个红薯

1. and last

复制代码

这种阻塞方式还是第一次看这么用，{:3_200:} 回复 15# rubyish


   

afukada

雖然已解決

不過還是請大家指教一下( <_._> )

1. use Data::Dumper;
   
2. 
   
3. $string="if a then if b then if c then d end if e then f end end end";
   
4. @word=split(/\s+/,$string);
   
5. 
   
6. foreach $E_word(@word)
   
7. {
   
8.         $check++,$seq[$check-1]++,$out{$check-1}[$seq[$check-1]-1]="q<" if($E_word eq "if");
   
9.         $out{$_}[$seq[$_]-1].=($E_word." ") for(0..$check-1);
   
10.         $out{$check-1}[$seq[$check-1]-1]=substr($out{$check-1}[$seq[$check-1]-1],0,length($out{$check-1}[$seq[$check-1]-1])-1).">",$check-- if($E_word eq "end");
    
11. }
    
12. 
    
13. print Dumper(\%out),"\n";

复制代码

謝謝大家

Perlvim

回复 18# afukada


   你的结果和我的要求最接近。

其实没必要用 q<> 的表示，我的意思是返回这样的数据结构。

另外你的代码也看不懂。

不知道你经常用什么语言写代码，怎么感觉像 awk

afukada

不好意思

這幾天比較忙

我平常就是使用perl

其實我用來用去就那幾招而已{:3_203:}

先將每個字切開來

@word=("if","a","then","if","b","then","if","c","then","d","end","if","e","then","f","end","end","end";

然後遇到"if"就將$check + 1,遇到"end"就將$check - 1 (check就是輸出hash的key)

每個對應的value是一個array

而array的index則使用一個@seq來表示,遇到"if"的時候就將對應的$seq[$check]++

當$check=1時$seq[$check]++, 就是$seq[1]=1

所以在$check=3的時後, $check[3]會加兩次

所以上面就會變成這樣

          "if","a","then","if","b","then","if","c","then","d","end","if","e","then","f","end","end","end"
check   1   1    1        2    2    2         3    3    3         3    2       3    3    3        3    2       1        0  
seq[1]  1   1    1                                                                                                          1        1
seq[2]                       1    1    1                                      1                                    1
seq[3]                                               1   1    1         1             2    2    2        2

Perlvim

思路很清晰