Geo Geo - 1 year ago 72
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

Answer Source

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;
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download