diff options
author | Eva Schlinger <eschling@andrew.cmu.edu> | 2013-06-07 13:20:15 -0400 |
---|---|---|
committer | Eva Schlinger <eschling@andrew.cmu.edu> | 2013-06-07 13:20:15 -0400 |
commit | 7facc1f34bcf2fdd328d0ce39d21c5cf7f1896da (patch) | |
tree | b47b5d6bbeefb4ecbae651df958aaebe06cab8d3 /training/utils/decode-and-evaluate.pl | |
parent | cd5190d525b911c8fecd50ada5f57d879bcd9779 (diff) |
python script to run mira
Diffstat (limited to 'training/utils/decode-and-evaluate.pl')
-rwxr-xr-x | training/utils/decode-and-evaluate.pl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/training/utils/decode-and-evaluate.pl b/training/utils/decode-and-evaluate.pl index 1a332c08..c69e77dc 100755 --- a/training/utils/decode-and-evaluate.pl +++ b/training/utils/decode-and-evaluate.pl @@ -39,6 +39,7 @@ my $weights; my $use_make = 1; my $useqsub; my $cpbin=1; +my $base_dir; # Process command-line options if (GetOptions( "jobs=i" => \$jobs, @@ -47,6 +48,7 @@ if (GetOptions( "input=s" => \$test_set, "config=s" => \$config, "weights=s" => \$weights, + "dir=s" => \$base_dir, ) == 0 || @ARGV!=0 || $help) { print_help(); exit; @@ -68,7 +70,9 @@ my @tf = localtime(time); my $tname = basename($test_set); $tname =~ s/\.(sgm|sgml|xml)$//i; my $dir = "eval.$tname." . sprintf('%d%02d%02d-%02d%02d%02d', 1900+$tf[5], $tf[4], $tf[3], $tf[2], $tf[1], $tf[0]); - +if ($base_dir) { + $dir = $base_dir.'/'.$dir +} my $time = unchecked_output("date"); check_call("mkdir -p $dir"); @@ -103,11 +107,12 @@ print STDERR "\nOUTPUT: $test_trans\n\n"; my $bleu = check_output("cat $test_trans | $SCORER $refs -m ibm_bleu"); chomp $bleu; print STDERR "BLEU: $bleu\n"; +print STDOUT "BLEU: $bleu\n"; my $ter = check_output("cat $test_trans | $SCORER $refs -m ter"); chomp $ter; print STDERR " TER: $ter\n"; open TR, ">$dir/test.scores" or die "Can't write $dir/test.scores: $!"; -print TR <<EOT; +my $score_report = <<EOT; ### SCORE REPORT ############################################################# OUTPUT=$test_trans SCRIPT INPUT=$test_set @@ -118,6 +123,9 @@ print TR <<EOT; TER=$ter ############################################################################## EOT + +print TR $score_report; +print STDOUT $score_report; close TR; my $sr = unchecked_output("cat $dir/test.scores"); print STDERR "\n\n$sr\n(A copy of this report can be found in $dir/test.scores)\n\n"; @@ -166,7 +174,8 @@ Options: A file specifying feature weights. --dir <dir> - Directory for intermediate and output files. + Base directory where directory with evaluation results + will be located. Job control options: |