Re: [問題] 找出最接近的比對字串?

[LiloHuang (相見不如懷念)]

#!/usr/bin/perl

 use Algorithm::AhoCorasick qw(find_all);

 my $text = "abcd";
 my @keywords = qw/a ab bc bcd/;

 $found = find_all($text, @keywords);
 if (!$found) {
     print "no keywords found\n";
 } else {
     foreach $pos (sort keys %$found) {
         $keywords = join ', ', @{$found->{$pos}};
         print "$pos: $keywords\n";
     }
 }

# 自己可以再改一下

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.79.63.18
※ 編輯: LiloHuang       來自: 211.79.63.18         (05/18 19:48)
→ deh3215:有個模組叫String::Approx qw(amatch),10%差異的字串可被
→ deh3215:比對出來