blob: 41823b4ee562f80275f18492c0e5fc97dbe1332b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
#
# This file is part of moses. Its use is licensed under the GNU Lesser General
# Public License version 2.1 or, at your option, any later version.
use warnings;
use strict;
die("ERROR: syntax: run-command-on-multiple-refsets.perl cmd in out")
unless scalar @ARGV == 3;
my ($cmd,$in,$out) = @ARGV;
die("ERROR: attempt to run on multiple references, but there is only one")
if -e $in && (! -e "$in.ref0" || -e $in."0");
die("ERROR: did not find reference '$in.ref0' or '${in}0'")
unless (-e "$in.ref0" || -e $in."0");
for(my $i=0;-e "$in.ref$i" || -e $in.$i;$i++) {
my $single_cmd = $cmd;
if (! -e "$in.ref$i") {
$single_cmd =~ s/mref-input-file/$in$i/g;
}
else {
$single_cmd =~ s/mref-input-file/$in.ref$i/g;
}
$single_cmd =~ s/mref-output-file/$out.ref$i/g;
system($single_cmd);
}
|