大佬教程收集整理的这篇文章主要介绍了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比较两个字符串并突出显示不匹配字符全部内容,希望文章能够帮你解决perl比较两个字符串并突出显示不匹配字符所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。