Determining how many times a string appears in a string

[adni18]

Is there a way to determine the number of instances a string appears in a larger string like here [javascript.internet.com], except in Perl, not JavaScript?

[SlowMove]

This should do it, even with regular expressions:

my $string = "substring substring substring oefiojoifasubstringioafesjvaiosubstring";
my $count = 0;
my $flag = 0;
do {
 if ( $string =~ /substring/) {
 $string = $';
 $count++;
 } else {
 $flag = 1;
 } 
} until $flag == 1;
print "$count\n";

[jollymcfats]

This is answered in the Perl FAQ that ships with perl. Type this at the command line:

perldoc -q count

[SlowMove]

"There's More Than One Way To Do It"

[kaled]

I think something like this will work.

$tmp = $str;
$count = ($tmp ~= s/$search//g);

i.e. a global substitute with a null string.
I'm not certain the syntax above is correct - my perl is a bit rusty.

Kaled.

[upside]

kaled has the right idea, but this syntax works:

my $count = ($string =~ tr/$substring//);

[adni18]

Thanks everyone!

[DrDoc]

Here's yet another possibility:

$count = @{[$string =~ /$match/g]};