 |
 |
On Oct 12, 2009, at 10:27 PM, Benjamin Florin wrote:
> foreach my $word (keys %words)
> {
> $words_stems{$stemmer->stem($word)} += $words{$word};
> }
>
> foreach my $idea (@ideas)
> {
> my $idea_stem = $stemmer->stem( $idea );
> print "$idea ($idea_stem)\n";
> print $words_stems{$idea_stem}."\n";
> }
A number of other people in other venues have suggested similar things
-- pre-process the hash of stems. I will go with this. Resolved. Thank
you.
internet++
--
Eric Morgan