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/extract_grammar.pl | |
| parent | da222df300e4f87ad185a7decbf119ad56aa34e0 (diff) | |
word aligner cleanup, new features
Diffstat (limited to 'word-aligner/extract_grammar.pl')
| -rwxr-xr-x | word-aligner/extract_grammar.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/word-aligner/extract_grammar.pl b/word-aligner/extract_grammar.pl deleted file mode 100755 index d7275ef5..00000000 --- a/word-aligner/extract_grammar.pl +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -my $key = shift @ARGV; -die "Usage: $0 KEY\n" unless defined $key; - -while(<>) { - my ($k, @rest) = split / \|\|\| /; - print join(' ||| ', @rest) if ($k eq $key); -} - |