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

david_95

有文本文件内容如下：

        item_package_dimensions: [
            {
                length: {
                    normalized_value: {
                        unit: inches,
                        value: 10.599999989188,
                    },
                    unit: centimeters,
                    value: 26.924,
                },
                width: {
                    normalized_value: {
                        unit: inches,
                        value: 10.49999998929,
                    },
                    unit: centimeters,
                    value: 26.67,
                },
                height: {
                    normalized_value: {
                        unit: inches,
                        value: 1.699999998266,
                    },
                    unit: centimeters,
                    value: 4.318,
                },
                source_customer_id: 120098015,
            },
        ],
        manufacturer: [
            {
                value: "Hasbro Games",
                language_tag: zh_CN,
            },
        ],
        。。。 下面还有很多类似字符串

我想搜索匹配item的相应内容 ，比如我搜“width”，从“:{”开始 ,读取其下所有的字符串，直到遇到对应的“｝”为止
问题：
1 我可以用正则匹配找到第一个 width， 我怎么定位到该行，并从该行开始继续读入
2 我怎么找到对应的结束符 ｝      
脑子转不动了，求指点

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

复制代码

104359176

这似乎是某种数据格式

zhlong8

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

david_95

十分感谢，我也想出来一个法子，正在试

david_95

@zhlong8 , 这确实是种数据结构，不过有什么好处，我理解的不是很深刻，什么方面体现解析器好写？能深入指点一下吗？
我总觉得这个太麻烦，有点像 json ，但是｛ [ 一堆，数据干嘛弄这么复杂，理解不了。我还不太理解｛ 【 有啥子区别..

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行正则表达式少了个 ^

david_95

谢谢，先收藏研究一下

huyang_

动手写了下，不知道符不符合你的需求，把符合条件的字符串都提取出来了，怎么输出你就自己决定吧

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. my $str = $ARGV[0];   #获取想要匹配的字符串,比如width
   
5. my $stack = {};
   
6. my $n = 0;            #记录当前读取文件的行数
   
7. my $left = 0;         #左大括号
   
8. my $right = 0;
   
9. my $start = 0;
   
10. open( FILE,"1.txt" ) ;   #替换为具体的文件路径
    
11. while( <FILE> )
    
12. {
    
13.         chomp;
    
14.   $n++;
    
15. 
    
16.   if(/$str:\s*\{/)
    
17.   {
    
18.     $start = $n;
    
19.     $left++;
    
20.     $stack->{$start}->{$n} = $_;
    
21.     next;
    
22.   }
    
23. 
    
24.   unless($left == 0)
    
25.   {
    
26.     if(/([\{}])/)
    
27.     {
    
28.             if($1 eq '{')
    
29.             {
    
30.                     $left++;
    
31.             }else{
    
32.                     $right++;
    
33.             }
    
34.       if($left == $right)
    
35.       {
    
36.               $left = 0;
    
37.               $right = 0;
    
38.       }
    
39.       $stack->{$start}->{$n} = $_;
    
40.     }else{
    
41.       $stack->{$start}->{$n} = $_;
    
42.     }
    
43.   }
    
44. }
    
45. close(FILE);
    
46. print Dumper($stack);

复制代码

执行脚本的时候需要加上你要搜索的字符串，比如perl  xx.pl width