如何利用perl进行序列比对时给予一定的错误率?[求助]

如何利用perl进行序列比对时给予一定的错误率?[求助]

如何利用perl进行序列比对时给予一定的错误率?[求助]
我使用perl用于生物信息学,由于序列完全相同的可能性很小,所以我必须允许有一定程度的错误率,譬如20%。之前用正则表达式很容易实现完全的比对,现在发现有了错误率设定以后就困难多了。我的设想是每次比对时,进行字符操作,并另外设置一个变量记录不同字符的个数,最后得出一个误差概率。可是在实现的时候有点问题,哪位高手能赐教于我,不胜感激!
String::Similarity--Te.
String::Similarity
Text::Similarity
String::Approx
请在 search.cpan.org 看看这几个模块:-)
谢谢.