counting matches in a line

halfcountplus has asked for the wisdom of the Perl Monks concerning the following question:

What's the easiest way to count the number of matches in one line? the context is something like this:


while (<DATA>) {
     if ($_ =~ /this/) {
          my $c=the number of times "this" occured
          print "$_\nthis matched: $c times"
     }
}
[download]

Comment on counting matches in a line Download Code

Replies are listed 'Best First'.
Re: counting matches in a line by FunkyMonk (Bishop) on Mar 16, 2008 at 17:06 UTC
`$_ = "abffdeabggfrabhhjuab"; my $matches =()= m/ab/g; print $matches; # 4` [download] See Perl Idioms Explained - my $count = () = /.../g for an explanation of `=()=`, the operator-that-shall-not-be-named :) Update: Removed superfluous brackets from regexp & added a linky	[reply] [d/l] [select]
Re^2: counting matches in a line by halfcountplus (Hermit) on Mar 16, 2008 at 23:33 UTC
this also works perfect in ranking number of occurances and simplifies	[reply]
Re: counting matches in a line by pc88mxer (Vicar) on Mar 16, 2008 at 17:05 UTC
Yet another question where there are many ways to do it. Here's just one: `my $count; while (<DATA>) { s/(this)/$count++;$1/ge; # non-destructive version } print "number of this = $count\n";` [download]	[reply] [d/l]
Re: counting matches in a line by halfcountplus (Hermit) on Mar 16, 2008 at 17:03 UTC
never mind, i just noticed somebody asked this exact same question	[reply]