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

前端之家收集整理的这篇文章主要介绍了regex – perl中字符串之间的字符匹配计数前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个字符串(比如字符串1)需要与其他字符串匹配(string2)
两个字符串都具有相同的长度,并且不区分大小写.

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

Eg: String 1: stranger
    String 2: strangem

     Match count = 7

我试过这个:

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

print "$count\n";

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

解决方法

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

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

print "$count\n";

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

猜你在找的Perl相关文章