perl快速统计两段序列的字符差异数

use strict;  
use warnings;  
  
# 定义两个相同长度的序列
my @str1 =split // , "VTVDGYGDCNVHRTE";  
my @str2 =split // , "ATVDGYGRCNVHRTE";  
  
# 初始化差异计数器  
my $diff_count = 0;   
   
# 逐字符比较两个序列  
for (my $i = 0; $i < $#str1+1; $i++) {  
    if ($str1[$i] ne $str2[$i]) {  
        $diff_count++;  
    }  
}  
  
# 输出差异数量  
print "Differences between the two sequences: $diff_count\n";