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

前端之家收集整理的这篇文章主要介绍了perl比较两个字符串并突出显示不匹配字符前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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

有些测试可能包含错误.

猜你在找的Perl相关文章