WordNet::QueryData

http://search.cpan.org/~jrennie/WordNet-QueryData-1.37/QueryData.pm
ppmパッケージが存在しないので、nmake経由でインストール。同時にWordNetというフリーの辞書もインストールした。単語の品詞を調べるのに利用できないか考えてみる。
WordNetはここから入手した。

my $word = 'sworn';
print  join(", ", $wn->validForms($word)), "\n";

#品詞一覧が出てくる。
#最初の#の次にnがあれば名詞、vがあれば動詞になる。
my @parts_of_speech = $wn->querySense($word);

foreach my $p(@parts_of_speech){
    my @senses = $wn->querySense($p);

    foreach my $s(@senses){
        #語句それぞれの説明が表示される。
        print "$s\t", $wn->querySense($s, "glos"), "\n";
    }

}

結構、実行時間がかかる。大量に実行するのは難しいと思われる。