| Current Path : /usr/share/doc/perl-Text-Fuzzy/examples/ |
| Current File : //usr/share/doc/perl-Text-Fuzzy/examples/nearestv.pl |
#!/usr/bin/perl
use warnings;
use strict;
use Text::Fuzzy;
my @words = (qw/who where what when why/);
my $tf = Text::Fuzzy->new ('whammo');
my @nearest = $tf->nearestv (\@words);
print "@nearest\n";