From c97b8a8b58f7385fb48b74e2cf1ea9610cd1202f Mon Sep 17 00:00:00 2001 From: Chris Dyer Date: Mon, 1 Feb 2010 17:38:39 -0500 Subject: word aligner cleanup, new features --- word-aligner/extract_grammar.pl | 11 ----------- 1 file changed, 11 deletions(-) delete mode 100755 word-aligner/extract_grammar.pl (limited to 'word-aligner/extract_grammar.pl') 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); -} - -- cgit v1.2.3