diff options
Diffstat (limited to 'word-aligner/support/invert_grammar.pl')
| -rwxr-xr-x | word-aligner/support/invert_grammar.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/word-aligner/support/invert_grammar.pl b/word-aligner/support/invert_grammar.pl new file mode 100755 index 00000000..3988388d --- /dev/null +++ b/word-aligner/support/invert_grammar.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl -w +use strict; + +while(<>) { + my ($f, $e, $scores) = split / \|\|\| /; + print "$e ||| $f ||| $scores"; +} + |