Select Code to Download

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

  my $value = $measure->getRelatedness("$words1[$i]#1", "$words2[$j]#1
+");

  sub show {
    my ($s) = @_ ;
    $s =~ s/([\x00-\x1F\x7F-\xA0])/sprintf("\\x%02X", ord($1))/eg ;
    return $s ;
  } ;

  print "similarity of '", show("$words1[$i]#1"), "' and '", show("$wo
+rds2[$j]#1"),
           "' = $value\n";