Select Code to Download

  use WordNet::QueryData;
  use WordNet::Similarity::path;
...
 
  print "similarity of $words1[$i] and $words2[$j] = $value\n";}
}}}

$measure->getRelatedness("cat#n#1", "dog#n#1");

July#n
Macdonough#n
...
depart#v
Admiralty#n
Islands#n

similarity of July#n and Macdonough#n = 
similarity of July#n and Hawaii#n = 
...
.
.
.