+ -
当前位置:首页 → 问答吧 → perl怎么统计正则模式 正确匹配到的次数

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

时间:2011-04-13

来源:互联网

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

作者: xfhxfhxfh   发布时间: 2011-04-13

这样可以吗?
  1. $a="abababaaaaabab";
  2. $num=$a=~s/(ab)/$1/g;
  3. print $num;
复制代码

作者: Mr-Summer   发布时间: 2011-04-14

  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吧

作者: stronghearted   发布时间: 2011-04-14