Perl解析RC，RC2文件

 1 #!/usr/bin/perl -w
 2 use strict;  3 use warnings;  4 
 5 
 6 #根据RC,RC2文件构造字典需要输入两个文件，利用控件ID来对应  7 
 8 ##################  9 #解析.rc2文件
 10 sub readRc2File  11 {  12    my $currentLine = 0 ;####读到492多行,addcount=382时的时候竟然结束了！
 13    my $fileName = shift;  14    my $hash_ref = shift ;  15    my $encoding = shift ;  16    my $fd ;  17    my $addCount = 0 ;  18    if( $encoding )  19  {  20       open $fd,"<:utf8",$fileName or die "openFile $fileName error!";  21    }else{  22       open $fd,$fileName or die "openFile $fileName error!";  23  }  24    my $begin = 0 ;   #begin开始标志位
 25    my $mul_begin = 0 ; #/**/开始标志位
 26    my $str = "";  27    while(<$fd>)  28  {  29       #$currentLine++;  30  #print "$currentLine: $_";  31  #过滤多行注释
 32       if( m#^s*/*# )#if begin with: /* #这里会有问题！当字符串“”里面有注释的时候就会挂-_-！！！所以！必须得开头！
 33  {  34            $mul_begin = 1 ;  35  }  36       if($mul_begin)  37  {  38          if( m#.**/# ) #if end width */
 39  {  40             #print "Current Line:$currentLine";#addCount = 1670出问题
 41             $mul_begin = 0 ;  42  }  43  }  44       else
 45  {  46         #在BEGINn与ENDn里面的就是我们需要的字符串 ##这里出要求BEGIN开头，避免字符串里面出现BEGIN
 47         if( m/^s*BEGIN/ )  48  {  49             $begin = 1 ;  50  }  51         else{  52             if( $begin )  53  {  54                 if( /^END/ )  55  {  56                     $begin = 0 ;  57  }  58                 else
 59  {  60                     #处理数据  61  #过滤单行注释 
 62                     if( !m=^s*(//|#)= ) # if begin with // or #
 63  {  64                          #处理真正的数据
 65                          if( m#^[s|t]*(w+)[s|t]+"(.+)"# )
 66  {  67                               if( !exists( $$hash_ref{$1} ) )  68  {  69                                  $$hash_ref{$1} = $2 ;  70                                  $addCount++;  71  }  72  }  73  }  74  }  75  }  76  }  77  }  78  }  79 }  80 
 81 ##################  82 #解析.rc文件，.rc文件与.rc2文件不同的地方在于：控件ID在“字符串”后面 ，例如："C&ounter_Clockwise",IDC_ADVANCE_CCW  83 #rc与文件有点不同
 84 sub readRcFile  85 {  86    my $addCount = 0 ;  87    my $fileName = shift;  88    my $hash_ref = shift ;  89    open my $fd,"< ",$fileName or die "openFile $fileName error!";  90    my $begin = 0 ;  91    my $mul_begin = 0 ; #/**/开始标志位
 92    my $str = "";  93    while(<$fd>)  94  {  95       #过滤多行注释
 96       if( m#^s*/*# )#if begin with: /* #这里会有问题！当字符串“”里面有注释的时候就会挂-_-！！！所以！必须得开头！
 97  {  98            $mul_begin = 1 ;  99  } 100       if($mul_begin) 101  { 102          if( m#.**/# ) #if end width */
103  { 104             #print "Current Line:$currentLine";#addCount = 1670出问题
105             $mul_begin = 0 ; 106  } 107  } 108       else
109  { 110         #在BEGINn与ENDn里面的就是我们需要的字符串 ##这里出要求BEGIN开头，避免字符串里面出现BEGIN
111         if( m/^s*BEGIN/ ) 112  { 113             $begin = 1 ; 114  } 115         else
116  { 117             if( $begin ) 118  { 119                 if( /^END/ ) 120  { 121                     $begin = 0 ; 122  } 123                 else
124  { 125                     #处理数据 126  #过滤单行注释 
127                     if( !m=^s*(//|#)= ) # if begin with // or #
128  { 129                          #处理真正的数据
130                          if( m="(.+?)"s*,(w+?),= ) 131  { 132                               if( !exists( $$hash_ref{$2} ) ) 133  { 134                                  $$hash_ref{$2} = $1 ; 135                                  $addCount++; 136  } 137  } 138  } 139  } 140  } 141  } 142  } 143  } 144 } 145 
146 
147 ##################### 148 #通过相同ID确定 英文与波兰文的键值关系
149 sub getDict 150 { 151    my $hash_eng = shift ; 152    my $hash_pol = shift ; 153    my $dict = shift ; 154    while(my ($key,$val) = each(%$hash_eng) ) 155  { 156         $$dict{$val} = $$hash_pol{$key}; 157  } 158 } 159 
160 ######################
161 sub main 162 { 163    my %hash_eng = () ; 164    my %hash_pol = () ; 165    my %dict = (); 166    
167    print "========READING ENG FILE============n"; 168    readRc2File("rc2/Addition_ENU.rc2",%hash_eng); 169    print "Hash Table Size of hash_eng:".dictSize(%hash_eng)."n"; 170    readRc2File("rc2/icad.rc2",%hash_eng,1); 171    print "Hash Table Size of hash_eng:".dictSize(%hash_eng)."n"; 172    
173    #readRcFile("rc/IcadRes2_ENU.rc",%hash_eng); 174  #print "Hash Table Size of hash_eng:".dictSize(%hash_eng)."n";
175    
176    
177    print "=======READING POL FILE============n"; 178    readRc2File("rc2/AdditionPL.rc2",%hash_pol); 179    print "Hash Table Size of hash_pol:".dictSize(%hash_pol)."n"; 180    readRc2File("rc2/icad_POL.rc2",%hash_pol,1); 181    print "Hash Table Size of hash_pol:".dictSize(%hash_pol)."n"; 182    
183    #readRcFile("rc/IcadRes2_POL.rc",%hash_pol); 184  #print "Hash Table Size of hash_pol:".dictSize(%hash_pol)."n";
185    
186    getDict(%hash_eng,%dict); 187    writeDict(%dict,"dict/rc_dict"); 188 } 189 
190 
191 ######### 程序执行入口 ##################
192 main(); 193 
194 
195 
196 
197 ###################tools for test###########################
198 
199 sub writeDict 200 { 201     my $dict_hash = shift ; 202     my $dict_Name = shift ; 203     open my $myfd," >:utf8",$dict_Name; 204     while(my ($key,$val) = each(%$dict_hash) ) 205  { 206         if( $key ne $val ) 207  { 208            print $myfd "$key=n$val n" ; 209  } 210  } 211 } 212 
213 sub dictSize 214 { 215    my $hash_ref = shift ; 216    my $hash_size = keys %$hash_ref ; 217    return $hash_size; 218 } 219 sub printDict 220 { 221     my $hash_ref = shift ; 222     my $hash_size = keys %$hash_ref ; 223     print "n---------hash_size:$hash_size-----------n"; 224     while(my ($key,$val) = each(%$hash_ref) ) 225  { 226         print  "$key=n$valn" ; 227  } 228 }