From b271862d7cbb476ec58f9ea5e7432f29f4c4a5c9 Mon Sep 17 00:00:00 2001 From: phkoehn Date: Tue, 18 May 2010 17:39:16 +0000 Subject: various updates, mostly related to experiment.perl git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@3262 1f5c12ca-751b-0410-a591-d2e778427230 --- scripts/ems/support/run-command-on-multiple-refsets.perl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 scripts/ems/support/run-command-on-multiple-refsets.perl (limited to 'scripts/ems/support/run-command-on-multiple-refsets.perl') diff --git a/scripts/ems/support/run-command-on-multiple-refsets.perl b/scripts/ems/support/run-command-on-multiple-refsets.perl new file mode 100755 index 000000000..1a7ef9e8e --- /dev/null +++ b/scripts/ems/support/run-command-on-multiple-refsets.perl @@ -0,0 +1,14 @@ +#!/usr/bin/perl -w + +use strict; + +die("ERROR: syntax: run-command-on-multiple-refsets.perl cmd in out") + unless scalar @ARGV == 3; +my ($cmd,$in,$out) = @ARGV; + +for(my $i=0;-e "$in.ref$i";$i++) { + my $single_cmd = $cmd; + $single_cmd =~ s/mref-input-file/$in.ref$i/g; + $single_cmd =~ s/mref-output-file/$out.ref$i/g; + system($single_cmd); +} -- cgit v1.2.3