diff options
| author | Chris Dyer <redpony@gmail.com> | 2010-01-29 15:56:59 +0000 |
|---|---|---|
| committer | Chris Dyer <redpony@gmail.com> | 2010-01-29 15:56:59 +0000 |
| commit | da222df300e4f87ad185a7decbf119ad56aa34e0 (patch) | |
| tree | 1137deefefd28b1a89f6b2b339883801cc12cb29 /word-aligner/invert_grammar.pl | |
| parent | ee4383b3bc67e2d8ce113fce716050dc2e1b8572 (diff) | |
word aligner checkin
Diffstat (limited to 'word-aligner/invert_grammar.pl')
| -rwxr-xr-x | word-aligner/invert_grammar.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/word-aligner/invert_grammar.pl b/word-aligner/invert_grammar.pl new file mode 100755 index 00000000..3988388d --- /dev/null +++ b/word-aligner/invert_grammar.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl -w +use strict; + +while(<>) { + my ($f, $e, $scores) = split / \|\|\| /; + print "$e ||| $f ||| $scores"; +} + |