report/pyp_clustering/acl09-short/code/word_lengths.prl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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";
}