Geo Geo - 5 months ago 8x
Perl Question

Is there a Perl shortcut to count the number of matches in a string?

Suppose I have:

my $string = "one.two.three.four";

How should I play with context to get the number of times the pattern found a match (3)? Can this be done using a one-liner?

I tried this:

my ($number) = scalar($string=~/\./gi);

I thought that by putting parentheses around
, I'd force array context, and by the use of
, I'd get the count. However, all I get is


That puts the regex itself in scalar context, which isn't what you want. Instead, put the regex in list context (to get the number of matches) and put that into scalar context.

 my $number = () = $string =~ /\./gi;