如何使用 Perl 进行不精确的字符串比较？

Question

给定两个字符串，我想找到指定长度的所有公共子字符串，但允许一个字符不同。

例如，如果 s1 是 'ATCAGC'，s2 是 'ATAATCGAC'，指定的长度是 3，那么我想要输出沿着这些思路：

ATC from s1 matches ATA, ATC from s2
TCA from s1 matches TAA, TCG from s2

问题

• 我可以使用简单的正则表达式来做到这一点吗？
• 如果没有，Perl 中有这个模块吗？

Answer 1

首先，“perl 汉明距离”的 Google 结果发现了一个 perlmonks 线程，其中提到了 Text::LevenshteinXS，各种典型的实现，以及一个可爱的异或技巧：

sub hd{ length( $_[ 0 ] ) - ( ( $_[ 0 ] ^ $_[ 1 ] ) =~ tr[\0][\0] ) }

您应该浏览关于 字符串指标（如果编辑距离或汉明距离不熟悉）。