perl比较两个字符串并突出显示不匹配字符

发布时间：2020-12-15 22:00:48 所属栏目：大数据来源：网络整理

导读：string1 = "AAABBBBBCCCCCDDDDD"string2 = "AEABBBBBCCECCDDDDD" 输出.哪里不匹配(在这种情况下E)将被替换为围绕E颜色的HTML标签. A**E**ABBBBBCC**E**CCDDDDD 我到目前为止所尝试的：XOR,diff和substr.首先,我需要找到索引,然后用模式替换这些索引. 解决方

string1 = "AAABBBBBCCCCCDDDDD"
string2 = "AEABBBBBCCECCDDDDD"

输出.哪里不匹配(在这种情况下E)将被替换为围绕E颜色的HTML标签.

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

我到目前为止所尝试的：XOR,diff和substr.首先,我需要找到索引,然后用模式替换这些索引.

解决方法

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

有些测试可能包含错误.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!