#!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);
}