Re: [問題] 找出最接近的比對字串?
#!/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)
→
05/18 20:50, , 1F
05/18 20:50, 1F
→
05/18 20:50, , 2F
05/18 20:50, 2F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
5
9
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
