perl - 比较两个字符串并在Perl中突出显示不匹配的字符

Question

考虑:

string1 = "AAABBBBBCCCCCDDDDD"
string2 = "AEABBBBBCCECCDDDDD"

输出。如果不匹配(在这种情况下为E)将被E周围的HTML标签替换，从而为E着色。

A**E**ABBBBBCC**E**CCDDDDD

到目前为止，我尝试了什么:XOR，diff和substr。首先，我需要找到索引，然后将这些索引替换为模式。

Answer 1

用:

use strict;
use warnings;

my $string1 = 'AAABBBBBCCCCCDDDDD';
my $string2 = 'AEABBBBBCCECCDDDDD';
my $result = '';
for(0 .. length($string1)) {
    my $char = substr($string2, $_, 1);
    if($char ne substr($string1, $_, 1)) {
        $result .= "**$char**";
    } else {
        $result .= $char;
    }
}
print $result;

它会打印 A**E**ABBBBBCC**E**CCDDDDD并经过一些测试，但可能包含错误。