求助大牛 关于字符串的模糊匹配

albertkingking

现有如下数据file11，file2。file1为长字符串例如:
ASDJLJLJALKJDJIASJIDOMNNNKZXNCJKAJD
file2文件里为短序列，例如：
ASDJLJ #1
ASSJLJ #2
SSSLLJ #3
ASDJJL #4
现在欲将file2里的每行去file1中找能够匹配的，希望能够有模糊匹配的mismatch数，比如说第一行是可以完全匹配的，问题不大，第二行就有一个mismatch，第三行就有3个mismatch。
希望能够得到这种有可控mismatch的匹配结果。
小弟转行新手，求大牛指导算法~~~
万分感谢~~~

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. @strs = (
   
4.     'ASDJLJ #1',
   
5.     'ASSJLJ #2',
   
6.     'SSSLLJ #3',
   
7.     'ASDJJL #4',
   
8. );
   
9. 
   
10. $text = <DATA>;
    
11. for (@strs) {
    
12.     ($x) = /(\S+)/;
    
13.     $y = $x;
    
14.     $y =~ s/(.)/(?:$1|.)/g;
    
15.     ($z) = $text =~ /($y)/;
    
16.     $m = $x ^ $z;
    
17.     @n = $m =~ /([^\0])/g;
    
18.     print "$x\t$z\t", scalar(@n), "\n";
    
19. }
    
20. 
    
21. __DATA__
    
22. ASDJLJLJALKJDJIASJIDOMNNNKZXNCJKAJD

复制代码

albertkingking

虽然看不太懂  先收藏学习了  太厉害了！！

albertkingking

虽然看不太懂  先收藏学习了  太厉害了！！