Perl解析RC，RC2文件

生活如麻

　　我们正在开发的一个软件是国际化软件，所以需要翻译成其他国家的语言。但是对每一次更新实际上需要改动的语言只是一部分，其他一大部分是可重用的。
　　所以，为了避免代理商再次翻译，我们从原来的版本资源文件抽出了对应的字典文件，并进行替换，达到只翻译一部分改变了的字符串。
　　这其他还希望用到模糊匹配，但是效果似乎不大，不过还是很有必要的。关于模糊匹配，我看到了《编程之美》里面的一个题目：“判断字符串的相似度”。与这个类似。 以下是部分Perl写的代码： [pl] #根据RC,RC2文件构造字典需要输入两个文件，利用控件ID来对应



  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, "<:utf8", $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         #在BEGIN\n与END\n里面的就是我们需要的字符串  ##这里出要求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         #在BEGIN\n与END\n里面的就是我们需要的字符串  ##这里出要求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,\%hash_pol,\%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$val\n" ;
227     }  
228 }
　　由于RC文件过于复杂，还没有写出来...~>_<~+