mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-09-20 07:42:21 +03:00
37 lines
778 B
Perl
Executable File
37 lines
778 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
my ($language,$src,$system) = @ARGV;
|
|
die("wrapping frame not found ($src)") unless -e $src;
|
|
$system = "Edinburgh" unless $system;
|
|
|
|
open(SRC,$src) or die "Cannot open: $!";
|
|
my @OUT = <STDIN>;
|
|
chomp(@OUT);
|
|
#my @OUT = `cat $decoder_output`;
|
|
while(<SRC>) {
|
|
chomp;
|
|
if (/^<srcset/) {
|
|
s/<srcset/<tstset trglang="$language"/i;
|
|
}
|
|
elsif (/^<\/srcset/) {
|
|
s/<\/srcset/<\/tstset/i;
|
|
}
|
|
elsif (/^<doc/i) {
|
|
s/ *sysid="[^\"]+"//;
|
|
s/<doc/<doc sysid="$system"/i;
|
|
}
|
|
elsif (/<seg/) {
|
|
my $line = shift(@OUT);
|
|
$line = "" if $line =~ /NO BEST TRANSLATION/;
|
|
if (/<\/seg>/) {
|
|
s/(<seg[^>]+> *).*(<\/seg>)/$1$line$2/i;
|
|
}
|
|
else {
|
|
s/(<seg[^>]+> *)[^<]*/$1$line/i;
|
|
}
|
|
}
|
|
print $_."\n";
|
|
}
|