Geo Geo - 7 months ago 12
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
$number
, I'd force array context, and by the use of
scalar
, I'd get the count. However, all I get is
1
.

Answer

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;
Comments