regex – perl中字符串之间的字符匹配计数

发布时间：2020-12-16 06:06:13 所属栏目：大数据来源：网络整理

导读：我有一个字符串(比如字符串1)需要与其他字符串匹配(string2) 两个字符串都具有相同的长度,并且不区分大小写. 我想打印两个字符串之间的字符匹配数. Eg: String 1: stranger String 2: strangem Match count = 7 我试过这个： $string1 = "stranger";$string2

我有一个字符串(比如字符串1)需要与其他字符串匹配(string2)
两个字符串都具有相同的长度,并且不区分大小写.

我想打印两个字符串之间的字符匹配数.

Eg: String 1: stranger
    String 2: strangem

     Match count = 7

我试过这个：

$string1 = "stranger";
$string2 = "strangem";
my $count = $string1 =~ m/string2/ig;

print "$countn";

任何形式的帮助表示赞赏.提前致谢！！

解决方法

独占或者,然后计算nul字符(字符串相同)：

my $string1 = "stranger";
my $string2 = "strangem";
my $count = ( lc $string1 ^ lc $string2 ) =~ tr///;

print "$countn";

更新：错过了“不区分大小写”位.

（编辑：李大同）

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