文本内容处理为字典形式

hope1234567hope

有一个文档（很大）：
内容大致为：
(reply){
   ExportOrganizationDataResult =
      (ArrayOfPtrOrganization){
         PtrOrganization[] =
            (PtrOrganization){
               OrganizationNO = "00269904"
               OrganizationNameShort = "综合办公室厂处级"
               OrganizationName = "机械分公司综合办公室厂处级"
               SuperiorNo = "00269881"
               OrganizationLevel = "二级单位直属机构内设机构"
               OrganizationLevelCode = "3C"
               RegionCode = "070"
               Region = "1省"
               City = "1市"
               IsEmptyOrg = None
               OrgStartDate = "20161001"
               OrgEndDate = "99991231"
               CreateTime = "2005/10/22 12:47:09"
               LastUpdateTime = "2016/10/12 0:16:59"
            },
            (PtrOrganization){
               OrganizationNO = "00269905"
               OrganizationNameShort = "综合办公室中干"
               OrganizationName = "公司综合办公室中干"
               SuperiorNo = "00269881"
               OrganizationLevel = "二级单位直属机构内设机构"
               OrganizationLevelCode = "3C"
               RegionCode = "070"
               Region = "2省"
               City = "2市"
               IsEmptyOrg = None
               OrgStartDate = "20161001"
               OrgEndDate = "99991231"
               CreateTime = "2005/10/22 12:47:09"
               LastUpdateTime = "2016/10/12 0:16:59"
            },
             (PtrOrganization){
               OrganizationNO = "50095191"
               OrganizationNameShort = "40018队"
               OrganizationName = "西部40018队"
               SuperiorNo = "65118390"
               OrganizationLevel = "三级单位"
               OrganizationLevelCode = "40"
               RegionCode = "550"
               Region = "3省"
               City = "3市"
               IsEmptyOrg = None
               OrgStartDate = "20161001"
               OrgEndDate = "99991231"
               CreateTime = "2005/10/22 12:42:20"
               LastUpdateTime = "2016/10/13 0:16:59"
            },
      }
   isSuccessReceived = "S"
   strErrorDes = None
}

想截取其中PtrOrganization后{}之间的内容，将所有{}中的内容存成字典形式放到一个list中，大致如：[{OrganizationNO:"00269904",OrganizationNameShort :"综合办公室厂处级",后面的省略},{OrganizationNO: "00269905"},{OrganizationNO:"50095191"}]
怎么处理？
如果是python处理呢？

sunzhiguolu

你这处理结果看着好像 json 格式

hope1234567hope

回复 2# sunzhiguolu

是从webservice 中读取的，与json还是有差别

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($idx, $rhData, @aData, $id, $val) = (0, {});
   
6. while (<DATA>){
   
7.     if (my $state = /\bPtrOrganization\)\{/ .. /\},/){
   
8.         next if (/\BOrganization/);
   
9.         if ($state =~ /E/){
   
10.             $idx++;
    
11.             next;
    
12.         }
    
13.         if (/(\w+)\s*=\s*((")?(?(3)[^"]+"|\S+))/){
    
14.             ($id, $val) = ($1, $2);
    
15.             push (@{$rhData->{$idx}}, "$id:$val");
    
16.         }
    
17.     }
    
18. }
    
19. 
    
20. $idx = 0;
    
21. foreach (map {$rhData->{$_}} sort keys %$rhData){
    
22.     $aData[$idx++] = "{" . join (',', @$_) . "}";
    
23. }
    
24. 
    
25. print "[", join (",", @aData), "]\n";
    
26. 
    
27. 
    
28. __DATA__
    
29. (reply){
    
30.    ExportOrganizationDataResult =
    
31.       (ArrayOfPtrOrganization){
    
32.          PtrOrganization[] =
    
33.             (PtrOrganization){
    
34.                OrganizationNO = "00269904"
    
35.                OrganizationNameShort = "综合办公室厂处级"
    
36.                OrganizationName = "机械分公司综合办公室厂处级"
    
37.                SuperiorNo = "00269881"
    
38.                OrganizationLevel = "二级单位直属机构内设机构"
    
39.                OrganizationLevelCode = "3C"
    
40.                RegionCode = "070"
    
41.                Region = "1省"
    
42.                City = "1市"
    
43.                IsEmptyOrg = None
    
44.                OrgStartDate = "20161001"
    
45.                OrgEndDate = "99991231"
    
46.                CreateTime = "2005/10/22 12:47:09"
    
47.                LastUpdateTime = "2016/10/12 0:16:59"
    
48.             },
    
49.             (PtrOrganization){
    
50.                OrganizationNO = "00269905"
    
51.                OrganizationNameShort = "综合办公室中干"
    
52.                OrganizationName = "公司综合办公室中干"
    
53.                SuperiorNo = "00269881"
    
54.                OrganizationLevel = "二级单位直属机构内设机构"
    
55.                OrganizationLevelCode = "3C"
    
56.                RegionCode = "070"
    
57.                Region = "2省"
    
58.                City = "2市"
    
59.                IsEmptyOrg = None
    
60.                OrgStartDate = "20161001"
    
61.                OrgEndDate = "99991231"
    
62.                CreateTime = "2005/10/22 12:47:09"
    
63.                LastUpdateTime = "2016/10/12 0:16:59"
    
64.             },
    
65.              (PtrOrganization){
    
66.                OrganizationNO = "50095191"
    
67.                OrganizationNameShort = "40018队"
    
68.                OrganizationName = "西部40018队"
    
69.                SuperiorNo = "65118390"
    
70.                OrganizationLevel = "三级单位"
    
71.                OrganizationLevelCode = "40"
    
72.                RegionCode = "550"
    
73.                Region = "3省"
    
74.                City = "3市"
    
75.                IsEmptyOrg = None
    
76.                OrgStartDate = "20161001"
    
77.                OrgEndDate = "99991231"
    
78.                CreateTime = "2005/10/22 12:42:20"
    
79.                LastUpdateTime = "2016/10/13 0:16:59"
    
80.             },
    
81.       }
    
82.    isSuccessReceived = "S"
    
83.    strErrorDes = None
    
84. }
    
85. 
    

复制代码

jason680

回复 1# hope1234567hope

$ awk -vs="[" '/},/{print s"}";s=c=P=""}P{sub(" *= *",":");sub("^ +","");s=s c $0;c=","}/\(PtrOrganization\){/{s=s C "{";P=1;C=","}END{print "]"}' FILE
[{OrganizationNO:"00269904",OrganizationNameShort:"综合办公室厂处级",OrganizationName:"机械分公司综合办公室厂处级",SuperiorNo:"00269881",OrganizationLevel:"二级单位直属机构内设机构",OrganizationLevelCode:"3C",RegionCode:"070",Region:"1省",City:"1市",IsEmptyOrg:None,OrgStartDate:"20161001",OrgEndDate:"99991231",CreateTime:"2005/10/22 12:47:09",LastUpdateTime:"2016/10/12 0:16:59"}
,{OrganizationNO:"00269905",OrganizationNameShort:"综合办公室中干",OrganizationName:"公司综合办公室中干",SuperiorNo:"00269881",OrganizationLevel:"二级单位直属机构内设机构",OrganizationLevelCode:"3C",RegionCode:"070",Region:"2省",City:"2市",IsEmptyOrg:None,OrgStartDate:"20161001",OrgEndDate:"99991231",CreateTime:"2005/10/22 12:47:09",LastUpdateTime:"2016/10/12 0:16:59"}
,{OrganizationNO:"50095191",OrganizationNameShort:"40018队",OrganizationName:"西部40018队",SuperiorNo:"65118390",OrganizationLevel:"三级单位",OrganizationLevelCode:"40",RegionCode:"550",Region:"3省",City:"3市",IsEmptyOrg:None,OrgStartDate:"20161001",OrgEndDate:"99991231",CreateTime:"2005/10/22 12:42:20",LastUpdateTime:"2016/10/13 0:16:59"}
]