From d8b7a5fe01883818fe00d117b83852c6ea47747f Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@cab.ark.cs.cmu.edu>
Date: Tue, 6 Nov 2012 00:02:38 -0500
Subject: add lowercase script

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

(limited to 'corpus')

diff --git a/corpus/lowercase.pl b/corpus/lowercase.pl
new file mode 100755
index 00000000..688e493b
--- /dev/null
+++ b/corpus/lowercase.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -w
+use strict;
+binmode(STDIN,":utf8");
+binmode(STDOUT,":utf8");
+while(<>) {
+  $_ = lc $_;
+  print;
+}
+
-- 
cgit v1.2.3