如何找到基本的，不变形的词进行搜索？

Lingua::Stem

Lingua::Stem::Snowball

KinoSearch

##codes for the various tenses are:
#0 - Base Form
#1 - Past Simple
#2 - Past Participle
#3 - 3rd Person Singular
#4 - Present Participle

##Example use:
##my $newTense = changeVerbForm(\"see\",0,4);
##changes tense from base form to the present participle

my @changeverbforms = map changeVerbForm( $search_key, 0, $_ ), 1..4;
my @verbforms;
push (@verbforms, $changeverbforms[0]) unless ($changeverbforms[0] eq \"\");
push (@verbforms, $changeverbforms[1]) unless ($changeverbforms[1] eq \"\");
push (@verbforms, $changeverbforms[2]) unless ($changeverbforms[2] eq \"\");
push (@verbforms, $changeverbforms[3]) unless ($changeverbforms[3] eq \"\");

@verbforms

$search_key

or $verbform

1. Download and install WordNet.
2. export WNHOME=\'/usr/lib/wnres\' (if that is the directory containing the dict directory; that\'s where Cygwin puts it. You\'ll need that to install Wordnet::QueryData.)
3. cat $WNHOME/dict/*.exc > wordnet.exc  (combine all the .exc files)
4. Make this perl file:

$ cat > stem.pl
use strict;
use warnings;

# Read in WordNet exception files
my $ExcFile = \"wordnet.exc\";
my %Stems;
open(my $FILE, \"<$ExcFile\") or die \"Could not read $ExcFile: $!\";
while (my $line = <$FILE>) {
        chomp($line);
        my ($word, $stem) = split(/\\s+/, $line);
        $Stems{$word} = $stem;
}
close($FILE);

while (defined(my $in = <>)) {
        chomp($in); $in =~ s/\\r$//;
        $in =~ s/^\\s+//;
        $in =~ s/\\s+$//;
        next if $in eq \'\';
        my @words = split(/\\s+/, $in);
        foreach my $w (@words) {
                $w = $Stems{$w} if $Stems{$w};
        }
        print \"@words\\n\";
}
<ctrl-D>

perl stem.pl < foo.txt