perl count несоответствие между двумя строками

Question

Мне нужно просто подсчитать несоответствие между двумя строками. Пусть говорят:

my $s1 = "ATCG"; 
my $s2 = "ATTG"; 

Это должно указывать: 1 как несоответствие. Не нужно искать позицию или какие несоответствия.

Я искал быстрый способ сделать. Я думал, что расщепление на массивы и совпадение в цикле или использование substr для соответствия каждой позиции могут быть медленными, потому что их нужно проверять более чем на миллиард пар. Спасибо

Answer 1

Просто XOR две строки вместе. Каждый символ NUL в результате представляет позицию, в которой символы одинаковы в обеих строках.

my ($s1, $s2) = qw(ATCG ATTG); 

my $count = ($s1^$s2) =~ tr/\0//c; 

print "$count\n"; # Prints "1" 

---

Примечание: Если вы собираетесь повторно сравнить строку, передать его и один, к которому вы сравниваете его utf8::downgrade к убеждается ^ так быстро, как это может быть.

utf8::downgrade($s1); # Change the internal format in which 
utf8::downgrade($s2); # the strings are stored to speed up $s1^$s2. 

Это бесполезно или расточительно, если любая строка содержит символы UNICODE выше U + 00FF.