path: root/word-aligner/support/invert_grammar.pl

#!/usr/bin/perl -w
use strict;

while(<>) {
  my ($f, $e, $scores) = split / \|\|\| /;
  print "$e ||| $f ||| $scores";
}