有啥最简单的表达式能得知字串a中含有几个字串b？

house1

如题

sdupoplar

use strict;
use warnings;

my $a="abcmnabcjhabciuabcccabc";
my $count=0;
my $b="abc";
while($a=~/$b/g)
{
   $count++;
}
print $count;

result is :5

apile

@match = $a=~/$b/g;
print "match: ",@match,"\n";

do the same thing...

powerplane

1. 
   
2. print "match: ",@match,"\n";
   

复制代码

That code will print the array called "@match".......
I think should change to sth like this:

1. 
   
2. $_ = @match;
   
3. print "count:$_";
   

复制代码

apile

謝謝指正..
改用
print "match :".@match."\n";
就對了..

白水

试验成功，献上一个子程序给大家

$a="123a1213b123c123d";
$b="123";

$c=num_of_str($a,$b);
print"$c\n";


=====================================
子程序
sub num_of_str{#a里有几个b
        my ($a,$b)=@_;my @c=$a=~/$b/g;$a=@c;return($a);
}

deathcult

原帖由 "apile" 发表：
@match = $a=~/$b/g;
print "match: ",@match,"\n";

do the same thing...

   


so concise!
good! ：）

deathcult

another way ：）

1. 
   
2. $a = "fdaxxfdxajfxpo2xfji3x2-jfx83-2jf32";
   
3. $b = "x";
   
4. 
   
5. 
   
6. 
   
7. 
   
8. 
   
9. print scalar split(/$b/, $a) - 1;
   

复制代码