作者LiloHuang (相见不如怀念)
看板Perl
标题Re: [问题] 找出最接近的比对字串?
时间Mon May 18 19:48:19 2009
#!/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)
1F：→ deh3215:有个模组叫String::Approx qw(amatch),10%差异的字串可被 05/18 20:50
2F：→ deh3215:比对出来 05/18 20:50