GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-23 04:19:27 +01:00
Code Issues Projects Releases Wiki Activity

List Levenshtein-based closest matches if factoid not found

Browse Source
This commit is contained in:
Pragmatic Software 2010-04-09 22:55:24 +00:00
parent fe32a435c0
commit e051ede6f0
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
PBot/Factoids.pm
View File

@ -13,6 +13,7 @@ $VERSION = $PBot::PBot::VERSION;
use HTML::Entities; use HTML::Entities;
use Time::HiRes qw(gettimeofday); use Time::HiRes qw(gettimeofday);
use Text::Levenshtein qw(fastdistance);
use Carp (); use Carp ();
use PBot::FactoidModuleLauncher; use PBot::FactoidModuleLauncher;
@ -240,6 +241,31 @@ sub find_factoid {
return $result; return $result;
} }
sub levenshtein_matches {
my ($self, $keyword) = @_;
my $comma = '';
my $result = "No such factoid '$keyword'; similiar matches: ";
foreach my $command (sort keys %{ $self->factoids }) {
next if exists $self->factoids->{$command}{regex};
my $distance = fastdistance($keyword, $command);
# print "Distance $distance for $keyword (" , (length $keyword) , ") vs $command (" , length $command , ")\n";
my $length = (length($keyword) > length($command)) ? length $keyword : length $command;
# print "Percentage: ", $distance / $length, "\n";
if($distance / $length < 0.50) {
$result .= $comma . $command;
$comma = ", ";
}
}
$result .= "none." if $comma eq '';
return $result;
}
sub interpreter { sub interpreter {
my $self = shift; my $self = shift;
my ($from, $nick, $user, $host, $count, $keyword, $arguments, $tonick) = @_; my ($from, $nick, $user, $host, $count, $keyword, $arguments, $tonick) = @_;
@ -247,8 +273,9 @@ sub interpreter {
my $pbot = $self->{pbot}; my $pbot = $self->{pbot};
my $string = "$keyword" . (defined $arguments ? " $arguments" : ""); my $string = "$keyword" . (defined $arguments ? " $arguments" : "");
my $lev = lc $keyword;
$keyword = $self->find_factoid($keyword, $arguments); $keyword = $self->find_factoid($keyword, $arguments);
return undef if not defined $keyword; return $self->levenshtein_matches($lev) if not defined $keyword;
my $type; my $type;
$type = 'text' if exists $self->factoids->{$keyword}{text}; $type = 'text' if exists $self->factoids->{$keyword}{text};
@ -419,7 +446,7 @@ sub interpreter {
$self->{pbot}->logger->log("($from): $nick!$user\@$host): Unknown command type for '$keyword'\n"); $self->{pbot}->logger->log("($from): $nick!$user\@$host): Unknown command type for '$keyword'\n");
return "/me blinks."; return "/me blinks.";
} }
return undef; return "/me wrinkles her nose.";
} }
sub export_path { sub export_path {