Perl解析RC，RC2文件

我们正在开发的一个软件是国际化软件，所以需要翻译成其他国家的语言。但是对每一次更新实际上需要改动的语言只是一部分，其他一大部分是可重用的。

所以，为了避免代理商再次翻译，我们从原来的版本资源文件抽出了对应的字典文件，并进行替换，达到只翻译一部分改变了的字符串。

这其他还希望用到模糊匹配，但是效果似乎不大，不过还是很有必要的。关于模糊匹配，我看到了《编程之美》里面的一个题目：“判断字符串的相似度”。与这个类似。 以下是部分Perl写的代码： [pl] #根据RC,RC2文件构造字典需要输入两个文件，利用控件ID来对应

#!/usr/bin/perl -w
use strict;
use warnings;


#根据RC,RC2文件构造字典需要输入两个文件，利用控件ID来对应

##################
#解析.rc2文件
sub readRc2File
{
   my $currentLine = 0 ;####读到492多行,addcount=382时的时候竟然结束了！
   my $fileName = shift;
   my $hash_ref = shift ;
   my $encoding = shift ; 
   my $fd ; 
   my $addCount = 0 ;
   if( $encoding )
   {
      open $fd, "<:utf8", $fileName or die "openFile $fileName error!";
   }else{
      open $fd, "<:utf8", $fileName or die "openFile $fileName error!";
   }
   my $begin = 0 ;   #begin开始标志位
   my $mul_begin = 0 ; #/**/开始标志位
   my $str = "";
   while(<$fd>)
    {
      #$currentLine++;
      #print "$currentLine: $_"; 
      #过滤多行注释
      if( m#^\s*/\*# )#if begin with: /*  #这里会有问题！当字符串“”里面有注释的时候就会挂-_-！！！所以！必须得开头！
      {
           $mul_begin = 1 ; 
      }
      if($mul_begin)
      {
         if( m#.*\*/# ) #if end width */
         {
            #print "Current Line:$currentLine";#addCount = 1670出问题
            $mul_begin = 0 ; 
         }
      }
      else
      {
        #在BEGIN\n与END\n里面的就是我们需要的字符串  ##这里出要求BEGIN开头，避免字符串里面出现BEGIN
        if( m/^\s*BEGIN/ )
        {
            $begin = 1 ; 
        }
        else{
            if( $begin )
            {
                if( /^END/ )
                {
                    $begin = 0 ; 
                }
                else
                {
                    #处理数据
                    #过滤单行注释 
                    if( !m=^\s*(//|#)= ) # if begin with // or #
                     {
                         #处理真正的数据
                         if( m#^[\s|\t]*(\w+)[\s|\t]+"(.+)"# )
                           {
                              if( !exists( $$hash_ref{$1} ) )
                              {
                                 $$hash_ref{$1} = $2 ; 
                                 $addCount++;
                              }
                           }
                         }
                     }
                }
           }
       }
    }
}

##################
#解析.rc文件，.rc文件与.rc2文件不同的地方在于：控件ID在“字符串”后面 ，例如："C&ounter_Clockwise",IDC_ADVANCE_CCW
#rc与文件有点不同
sub readRcFile
{
   my $addCount = 0 ;
   my $fileName = shift;
   my $hash_ref = shift ;
   open my $fd, "< ", $fileName or die "openFile $fileName error!";
   my $begin = 0 ;
   my $mul_begin = 0 ; #/**/开始标志位
   my $str = "";
   while(<$fd>)
   {
      #过滤多行注释
      if( m#^\s*/\*# )#if begin with: /*  #这里会有问题！当字符串“”里面有注释的时候就会挂-_-！！！所以！必须得开头！
      {
           $mul_begin = 1 ; 
      }
      if($mul_begin)
      {
         if( m#.*\*/# ) #if end width */
         {
            #print "Current Line:$currentLine";#addCount = 1670出问题
            $mul_begin = 0 ; 
         }
      }
      else
      {
        #在BEGIN\n与END\n里面的就是我们需要的字符串  ##这里出要求BEGIN开头，避免字符串里面出现BEGIN
        if( m/^\s*BEGIN/ )
        {
            $begin = 1 ; 
        }
        else
        {
            if( $begin )
            {
                if( /^END/ )
                {
                    $begin = 0 ; 
                }
                else
                {
                    #处理数据
                    #过滤单行注释 
                    if( !m=^\s*(//|#)= ) # if begin with // or #
                     {
                         #处理真正的数据
                         if( m="(.+?)"\s*,(\w+?),= )
                           {
                              if( !exists( $$hash_ref{$2} ) )
                              {
                                 $$hash_ref{$2} = $1 ; 
                                 $addCount++;
                              }
                           }
                     }
                }
            }
         }
      }
   }
}


#####################
#通过相同ID确定 英文与波兰文的键值关系
sub getDict
{
   my $hash_eng = shift ;
   my $hash_pol = shift ;
   my $dict = shift ; 
   while(my ($key, $val) = each(%$hash_eng) )
    {
        $$dict{$val} = $$hash_pol{$key};
    }
}

######################
sub main
{
   my %hash_eng = () ;
   my %hash_pol = () ;
   my %dict = (); 
   
   print "========READING ENG FILE============\n";
   readRc2File("rc2/Addition_ENU.rc2",\%hash_eng);
   print "Hash Table Size of hash_eng:".dictSize(\%hash_eng)."\n";
   readRc2File("rc2/icad.rc2",\%hash_eng,1);
   print "Hash Table Size of hash_eng:".dictSize(\%hash_eng)."\n";
   
   #readRcFile("rc/IcadRes2_ENU.rc",\%hash_eng);
   #print "Hash Table Size of hash_eng:".dictSize(\%hash_eng)."\n";
   
   
   print "=======READING POL FILE============\n";
   readRc2File("rc2/AdditionPL.rc2",\%hash_pol);
   print "Hash Table Size of hash_pol:".dictSize(\%hash_pol)."\n";
   readRc2File("rc2/icad_POL.rc2",\%hash_pol,1);
   print "Hash Table Size of hash_pol:".dictSize(\%hash_pol)."\n";
   
   #readRcFile("rc/IcadRes2_POL.rc",\%hash_pol);
   #print "Hash Table Size of hash_pol:".dictSize(\%hash_pol)."\n";
   
   getDict(\%hash_eng,\%hash_pol,\%dict);
   writeDict(\%dict,"dict/rc_dict");
}


######### 程序执行入口 ##################
main();




###################tools for test###########################

sub writeDict
{
    my $dict_hash = shift ;
    my $dict_Name = shift ;
    open my $myfd, " >:utf8", $dict_Name;
    while(my ($key, $val) = each(%$dict_hash) )
    {
        if( $key ne $val )
        {
           print $myfd "$key=\n$val \n" ;
        }
    }  
}

sub dictSize
{
   my $hash_ref = shift ;
   my $hash_size = keys %$hash_ref ;
   return $hash_size;
}
sub printDict
{
    my $hash_ref = shift ;
    my $hash_size = keys %$hash_ref ;
    print "\n---------hash_size:$hash_size-----------\n";
    while(my ($key, $val) = each(%$hash_ref) )
    {
        print  "$key=\n$val\n" ;
    }  
}

由于RC文件过于复杂，还没有写出来...~>_<~+