From 7928695272b000de7142b91e05959a8fab6b1d2a Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@allegro.clab.cs.cmu.edu>
Date: Wed, 14 Nov 2012 20:33:51 -0500
Subject: major mert clean up, stuff for simple system demo

---
 corpus/cut-corpus.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 corpus/cut-corpus.pl

(limited to 'corpus/cut-corpus.pl')

diff --git a/corpus/cut-corpus.pl b/corpus/cut-corpus.pl
new file mode 100755
index 00000000..fc9cce3b
--- /dev/null
+++ b/corpus/cut-corpus.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+use strict;
+die "Usage: $0 N\nSplits a corpus separated by ||| symbols and returns the Nth field\n" unless scalar @ARGV > 0;
+
+my $x = shift @ARGV;
+die "N must be numeric" unless $x =~ /^\d+$/;
+$x--;
+
+while(<>) {
+  chomp;
+  my @fields = split / \|\|\| /;
+  my $y = $fields[$x];
+  if (!defined $y) { $y= ''; }
+  print "$y\n";
+}
+
-- 
cgit v1.2.3