diff options
| author | Chris Dyer <redpony@gmail.com> | 2010-02-01 17:38:39 -0500 |
|---|---|---|
| committer | Chris Dyer <redpony@gmail.com> | 2010-02-01 17:38:39 -0500 |
| commit | c97b8a8b58f7385fb48b74e2cf1ea9610cd1202f (patch) | |
| tree | 3bc1b02c39927a810862136534d5a0e35d7ed4fc /word-aligner/support/invert_grammar.pl | |
| parent | da222df300e4f87ad185a7decbf119ad56aa34e0 (diff) | |
word aligner cleanup, new features
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"; +} + |