Parent Directory | Revision Log | Patch
revision 12 by dpavlin, Sat Jul 9 10:15:09 2005 UTC | revision 16 by dpavlin, Thu Jun 28 10:38:34 2007 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use lib '.'; | use lib '.'; |
4 | require 'stem-hr.pm'; | use StemHR; |
5 | ||
6 | my %rules; | my %rules; |
7 | my %stem_words; | my %stem_words; |
# | Line 36 while(<>) { | Line 36 while(<>) { |
36 | ||
37 | my $orig = $_; | my $orig = $_; |
38 | ||
39 | my $stem = StemHr::stem($_); | my $stem = StemHR->stem($_); |
40 | ||
41 | if (s/^(.+)\s(\d+)$/$1\t$2/g) { | if (s/^(.+)\s(\d+)$/$1\t$2/g) { |
42 | $rules{$2}++; | $rules{$2}++; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |