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

zhlong8

这格式很清晰，写个解析器很快的。甚至你把所有东西都加上引号（除了已经有引号的字符串）再把 : 替换成 , 都能用 eval 了。

zhlong8

回复 6# david_95


    写这个的时候或许作者还不知道 JSON 语法不完全符合，要不能节省你很多生命。写个简单情况能工作的

1. use strict;
   
2. use warnings;
   
3. 
   
4. use Data::Dumper;
   
5. 
   
6. my @stack = {};
   
7. 
   
8. while (<>) {
   
9.     #删除空白
   
10.     s/^\s*//;
    
11.     s/[\s,]*$//;
    
12.     next if $_ eq '';
    
13. 
    
14.     if ($_ eq '{') {
    
15.         push @stack, {};
    
16.     } elsif ($_ eq '[') {
    
17.         push @stack, [];
    
18.     } elsif ($_ eq '}' or $_ eq ']') {
    
19.         if (ref $stack[-2]) { #上一级是数组
    
20.             push @{$stack[-2]}, $stack[-1];
    
21.             pop @stack;
    
22.         } else { #上一级是哈希时栈中还保存了key, ref 字符串返回 false
    
23.             $stack[-3]->{$stack[-2]} = $stack[-1];
    
24.             pop @stack;
    
25.             pop @stack;
    
26.         }
    
27.     } elsif (/(\w+)\s*:\s*"?(.*?)"?$/) {
    
28.         if ($2 eq '{') {
    
29.             push @stack, $1, {};
    
30.         } elsif ($2 eq '[') {
    
31.             push @stack, $1, [];
    
32.         } else {
    
33.             $stack[-1]->{$1} = $2;
    
34.         }
    
35.     } else {
    
36.         die "line: $. '$_'";
    
37.     }
    
38. }
    
39. 
    
40. die "unmatch bracket." if @stack != 1;
    
41. 
    
42. 
    
43. $Data::Dumper::Indent = 1;
    
44. print Dumper $stack[0];

复制代码

zhlong8

27行正则表达式少了个 ^