perl怎么统计正则模式 正确匹配到的次数

Question

请教高手 perl怎么统计正则模式正确匹配到的次数。Thanks！

Answer 1

这样可以吗？

1. $a="abababaaaaabab";
2. $num=$a=~s/(ab)/$1/g;
3. print $num;

复制代码

Answer 2

1. #!/usr/bin/perl
2. use warnings;
3. use strict;
4. my $a="abababaaaaabab";
5. my @b=$a=~m/ab/g;
6. my $b=@b;
7. print "$b\n";
8. print "$a";

复制代码s要替换原字母，在不替换原字母就m吧

Answer 3

my $count = () = $a=~ m/ab/g;

Answer 4

my $count = () = $a=~ m/ab/g;
jin2251138 发表于 2011-04-15 11:42

perl语法好灵活！