perl 提取文件中不确定长度的内容

yilongyansha

有一个文件，内容中的格式如下：

1. 2016-1-13 {"data":[{text:"46E10D1511D742a4",sa:"144115192371514461"},{text:"77A9141B044E428a",sa:"144115192371514445"}]}
   
2. 2016-1-13 {"data":[{text:"2C898E7A729648e0",sa:"144115192371514468"},{text:"4946FCA460304719",sa:"144115192371514453"},{text:"5846FCM460304732",sa:"144115192371514456"}]}

复制代码

因为data中{text:"46E10D1511D742a4",sa:"144115192371514461"}这样的元素个数不确定，有可能有1个或2个或3个或4个或者n个，我应该如何提取出所有的text和sa相应的内容呢？
正则表达式是不是提取不了？

谢谢~

sunzhiguolu

回复 1# yilongyansha

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.         chomp;
   
7.         s/\A.*?\[|]}\s*\z//g;
   
8.         my @aData = m/[^{,}]*/g;
   
9.         print "@aData\n";
   
10. }
    
11. 
    
12. 
    
13. __DATA__
    
14.     2016-1-13 {"data":[{text:"46E10D1511D742a4",sa:"144115192371514461"},{text:"77A9141B044E428a",sa:"144115192371514445"}]}
    
15.     2016-1-13 {"data":[{text:"2C898E7A729648e0",sa:"144115192371514468"},{text:"4946FCA460304719",sa:"144115192371514453"},{text:"5846FCM460304732",sa:"144115192371514456"}]}

复制代码

yilongyansha

回复 2# sunzhiguolu

谢谢！
不过有一个正则不太明白
s/\A.*?\[|]}\s*\z//g;
这是什么意思呢？
   

sunzhiguolu

@yilongyansha
s/\A.*?\[|]}\s*\z//g;
2016-1-13 {"data":[{text:"46E10D1511D742a4",sa:"144115192371514461"},{text:"77A9141B044E428a",sa:"144115192371514445"}]}

jason680

回复 1# yilongyansha

How about this way

#  text:"46E10D1511D742a4",sa:"144115192371514461"
while(m/text:"([^"]+)",sa:"([^"]+)"/g){ ... }
   

yilongyansha

回复 4# sunzhiguolu

我懂了，谢谢


   

yilongyansha

回复 5# jason680

您的方法简单易懂，不过有一个地方不是很清楚
m/text:"([^"]+)",sa:"([^"]+)"/g    为什么要用[^"]+呢？用\w+应该也可以吧？


   

jason680

回复 7# yilongyansha

>> ...提取文件中不确定长度的内容
   
内容有确定吗？

sunzhiguolu

@jason680
大神您颜色上错位置了吧, 提取文件中不确定长度的 内容.

yilongyansha

回复 8# jason680

每一行的内容都是确定的