1 files changed, 12 insertions, 0 deletions
diff --git a/defer/phrase.word-translation.nbest/filter-nbest.pl b/defer/phrase.word-translation.nbest/filter-nbest.pl
new file mode 100755
index 0000000..705fcee
--- /dev/null
+++ b/defer/phrase.word-translation.nbest/filter-nbest.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+$x=0;
+$oldcode = "";
+while (<>) {
+  chomp;
+  ($code,$trans,$featscores,$globscores) = split(/[\s]*\|\|\|[\s]*/,$_);
+  $x = 0 if $oldcode ne $code;
+  $x++;
+  chomp($code);
+  print "TRANSLATION_${code}_NBEST_${x}=$trans ||| $featscores\n";
+  $oldcode = $code;
+}