为译文信息打分的程序

#!usr/bin/perl

#
use strict;    # always use strict, it's a good habit

######
# Intro
my ($date, $time) = date_time_stamp();
print "MT evaluation run on $date at $time/n";
print "command line:  ", $0, " ", join(" ", @ARGV), "/n";
my $usage = "/n/n Usage: $0 [-h]  [-s score range ] [-r ref FILENAME] [-t translation FILEHANDLE]/n".
"-h                :打印帮助信息/n".
"-c                :打印需要保存的bleu分值范围，“0.8”表示大与0.8, 不给任何参数时全部打印/n".
"-r  ref_file     :参考译文文件路径/n".
"-t  trans_file  :译文信息文件路径/n".
"-o result_file  :结果文件路径/n".
"/n";
use vars qw ($opt_r $opt_t $opt_h $opt_c  $opt_o);
use Getopt::Std;   # see "perldoc Getopt::Std"
my %options;
getopts('r:t:hc:o:', /%options);  # read the options with getopts

# uncomment the following two lines to see what the options hash contains
#use Data::Dumper;
#print Dumper /%options;

$options{h} && usage();   # the -h switch

# use the -t switch, if it's given, or use a default input trans_info  filename
my $trans_info_file = $options{t} || 'trans_info.file';
# use the -r switch, if it's given, or use a default input ref  filename
my $ref_file = $options{r} || 'ref.file';
# use the -c switch, if it's given, or use a default input ref  filename
my $sel_score = $options{c} || '0.0';#默认全部输出
# use the -o switch, if it's given, or use a default input ref  filename
my $result_file = $options{o} || 'out.file';#默认全部输出

print "Translation file is $trans_info_file/n";
print "Ref file is $ref_file/n";
print "Will output the info whose score greater that $sel_score to the file $result_file/n";

#打开输入文件
die $usage if defined($opt_h);
#必须给定
die "Error in command line:  ref_file not defined$usage" unless defined $ref_file;
die "Error in command line:  trans_file not defined$usage" unless defined $trans_info_file;
die "Error in command line:  sel_score not defined$usage" unless defined $sel_score;
open (TRANS_FILE, $trans_info_file) or die "/nUnable to open translation data file $trans_info_file", $usage;

#开始处理输入译文信息文件
my $count =0;
while(!eof(TRANS_FILE)){
          my $line = <TRANS_FILE>;
          $count++;
          if($line=~//#/#/#/#/#/)
          {
           print "A new sentence begin:/n";
          }elsif($line =~//$/$/$/$/$ path_file/)
             {
            print "A path_file begin:/n";
            }
            else{
                my $path = $line  ;
                print "/n path is: $path";
                $count++;
                die "/n在$count 行 发生格式错误/n" unless (!eof(TRANS_FILE));
                my $feature = <TRANS_FILE>;
                print "/n feature is: $feature";
                die "/n在$count 行 发生格式错误/n" unless (!eof(TRANS_FILE));
                my $trans  = <TRANS_FILE>;
                print "/n trans is: $trans";
                   evaluate($path,$feature,$trans,$ref_file,$sel_score,$result_file);
            }
}

########################################

# print out the help and exit
sub usage
{
 print <<EOHELP;
make_corel [-h]  [-s score range ] [-r ref FILENAME] [-t translation FILEHANDLE]
-h                :打印帮助信息
-c                :打印需要保存的bleu分值范围，“0.8”表示大与0.8, 不给任何参数时全部打印
-r ref_file     :参考译文文件路径
-t trans_file  :译文信息文件路径
-o result_file  :结果文件路径
EOHELP
exit;
}

##########################################
## 评测分数

sub evaluate
{
     print "/neval/n";
     my ($path_info,$feature_info,$trans_info,$ref_info,$score_info,$result_file_info) =@_;
     print $path_info,$feature_info,$trans_info,$ref_info,$score_info,$result_file_info;
     my ($Bleu_score);
    
     #打开需要的零时文件，输入必要数据
     open TRANS,">trans.file.temp" or die "can not open file trans.file.temp $!/n";
     open FEATURE,">feature.file.temp" or die "can not open file feature.file.temp $!/n";
     print TRANS $trans_info;
     print FEATURE $feature_info;
     close(TRANS);
     close( FEATURE);
    
     #打开存放最终结果的文件
     open OUT,">>$result_file_info" or die "can not open file $result_file_info $!/n";
    
     #把译文写道$trans_info文件里,调用make_score进行评测,结果在$result_file_info中
     print system("make_score.exe trans.file.temp $ref_info result.file.temp feature.file.temp");
    
     #把结果文件result.file.temp中的结果析取出来
     open RESULT,"result.file.temp" or die "can not open file result.file.temp $!/n";
     my $temp_line = <RESULT>;
     my @temp_scores = split//s+/,$temp_line;
     if($temp_scores[0] >= $score_info)
     {
      print OUT $temp_scores[0],"/n";
      print OUT $path_info;
      print OUT $feature_info;
      print OUT $trans_info;
      close(RESULT);
      close(OUT);
      return ;
     }else
     {
      close(RESULT);
      close(OUT);
      return ;}    
}

#################################

sub date_time_stamp {

    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
    my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
    my ($date, $time);

    $time = sprintf "%2.2d:%2.2d:%2.2d", $hour, $min, $sec;
    $date = sprintf "%4.4s %3.3s %s", 1900+$year, $months[$mon], $mday;
    return ($date, $time);
}