看板 [ Perl ]
討論串[問題] 找出最接近的比對字串?
共 2 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#2
Re: [問題] 找出最接近的比對字串?
推噓0(0推 0噓 2→)留言2則，0人參與, 最新作者LiloHuang (相見不如懷念)時間16年前 (2009/05/18 19:48), 編輯資訊
0
0
0
內容預覽:
#!/usr/bin/perl. use Algorithm::AhoCorasick qw(find_all);. my $text = "abcd";. my @keywords = qw/a ab bc bcd/;. $found = find_all($text, @keywords);.
(還有142個字)
#1
[問題] 找出最接近的比對字串?
推噓5(5推 0噓 4→)留言9則，0人參與, 最新作者tumc (HIHIHI)時間16年前 (2009/05/18 17:42), 編輯資訊
0
0
0
內容預覽:
如果有一個字串$s,要與一個都是字串的陣列@s做比對,. 但需找出@s中,與$a比對結果最接近的字串,有沒有什麼好一點的作法.... (最接近字串的字義是: 有最多字元相同). 小弟想到的很麻煩:. foreach(@s){. if ($s=~/$_/){. push @match,$_;. }.
首頁
上一頁
1
下一頁
尾頁