有個文本匹配搜素的問題 求思路

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， 我怎么定位到該行，并從該行開始繼續(xù)讀入
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

這似乎是某種數(shù)據(jù)格式

zhlong8

這格式很清晰，寫個解析器很快的。甚至你把所有東西都加上引號（除了已經(jīng)有引號的字符串）再把 : 替換成 , 都能用 eval 了。

david_95

十分感謝，我也想出來一個法子，正在試

david_95

@zhlong8 , 這確實是種數(shù)據(jù)結構，不過有什么好處，我理解的不是很深刻，什么方面體現(xiàn)解析器好寫？能深入指點一下嗎？
我總覺得這個太麻煩，有點像 json ，但是｛ [ 一堆，數(shù)據(jù)干嘛弄這么復雜，理解不了。我還不太理解｛ 【 有啥子區(qū)別..

zhlong8

回復 6# david_95


    寫這個的時候或許作者還不知道 JSON 語法不完全符合，要不能節(jié)省你很多生命。寫個簡單情況能工作的

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]) { #上一級是數(shù)組
    
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;            #記錄當前讀取文件的行數(shù)
   
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);

復制代碼

執(zhí)行腳本的時候需要加上你要搜索的字符串，比如perl  xx.pl width