1 files changed, 21 insertions, 0 deletions
diff --git a/report/pyp_clustering/acl09-short/code/word_lengths.prl b/report/pyp_clustering/acl09-short/code/word_lengths.prl
new file mode 100755
index 00000000..4b4ed03b
--- /dev/null
+++ b/report/pyp_clustering/acl09-short/code/word_lengths.prl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+use Getopt::Std;
+use File::Basename;
+use List::Util qw(max maxstr min minstr reduce shuffle sum);
+use lib "$ENV{HOME}/src/perl/";
+use sg_utils;
+use strict;
+use vars qw();
+
+my $usage = "Usage: $0 \n";
+
+getopts('');
+
+die $usage unless (1);
+
+while (<>) {
+chomp;
+print length;
+print "\n";
+}
+