Manera rápida de encontrar la diferencia entre dos cadenas de igual longitud en Perl
Dados pares de cuerdas como esta.
my $s1 = "ACTGGA";
my $s2 = "AGTG-A";
# Note the string can be longer than this.
Me gustaría encontrar posición y carácter en$s1
donde difiere con$s2
. En este caso la respuesta sería:
#String Position 0-based
# First col = Base in S1
# Second col = Base in S2
# Third col = Position in S1 where they differ
C G 1
G - 4
Puedo lograr eso fácilmente consubstr()
. Pero es horriblemente lento. Por lo general, necesito comparar millones de esos pares.
¿Hay una manera rápida de lograr eso?