#!/usr/bin/perl -w
BEGIN { @INC = ("../blib/lib", @INC); }
use strict;
use Lingua::Wordnet;
use Data::Dumper;
my $dictdir;
my $word;
foreach (@ARGV) {
if ($_ =~ /DICTDIR=(.*)/) {
$dictdir = $1;
}
else {
$word = $_;
}
}
my $wn = new Lingua::Wordnet($dictdir);
if (!$word) {
print "Usage: $0 <word> [DICTDIR=/path/to/dictdir]\n";
exit;
}
print qq|Getting familarit(ies) of word '$word'\n|;
foreach (qw(n v a)) {
if (my $fam = $wn->familiarity($word, $_)) {
print qq|\tFamiliarity in '$_': $fam\n|;
}
}