diff options
author | vladimir.eidelman <vladimir.eidelman@ec762483-ff6d-05da-a07a-a48fb63a330f> | 2010-09-05 05:25:42 +0000 |
---|---|---|
committer | vladimir.eidelman <vladimir.eidelman@ec762483-ff6d-05da-a07a-a48fb63a330f> | 2010-09-05 05:25:42 +0000 |
commit | ab86dfd7274e0bafaf3d12e55fb9d8c81c2af871 (patch) | |
tree | 2e06de93bcd563d196980428f61a0beee19002c5 | |
parent | 7f248cf66ffdcfbf7a857473b665b4090454ba44 (diff) |
correction
git-svn-id: https://ws10smt.googlecode.com/svn/trunk@643 ec762483-ff6d-05da-a07a-a48fb63a330f
-rwxr-xr-x | mteval/mbr.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mteval/mbr.pl b/mteval/mbr.pl index 798da2d1..ff7763d8 100755 --- a/mteval/mbr.pl +++ b/mteval/mbr.pl @@ -1,14 +1,14 @@ +#!/usr/bin/perl -w #parallelize mbr computation from k-best list #Example usage : ./mbr.pl <kbest input file> <mbr output directory> - -#!/usr/bin/perl -w use strict; use File::Temp; use FileHandle; +use Cwd qw(getcwd); sub create_qsub; - -my $MBR = "/chomes/vlad/ws10smt/mteval/mbr_kbest"; +my $SCRIPT_DIR; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $SCRIPT_DIR = dirname(abs_path($0)); push @INC, $SCRIPT_DIR, "$SCRIPT_DIR/../environment"; } +my $MBR = "$SCRIPT_DIR/mbr_kbest"; die unless -x $MBR; my $kbest = shift @ARGV; |