diff options
-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; |