The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Wordnet::SenseSearch - Just get a synset from a sense key

SYNOPSIS

  use Wordnet::SenseSearch;
  my $search = new Wordnet::SenseSearch (dir => '/usr/local/Wordnet/dict/');
  my %synset = $search->lookup('animal%1:03:00::');
  print join ", ", @{$synset{words}};
  print $synset{pos};
  print $synset{gloss};

DESCRIPTION

This module does just one thing: returns the typically useful text for a synset, given its synset index key. The format of these keys and the sense index is described at:

  http://wordnet.princeton.edu/man/senseidx.5WN.html

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Danny Brian.