in reply to Re^2: Count number of occurrence of word
in thread Count number of occurrence of word

ummm you mean a disadvantage? 
use Benchmark(cmpthese);
cmpthese(1000000, {
    'a' => sub {
        $_ = 'this that this those this these.';
        $a = () = /this/g;
    },
    'b' => sub {
        $_ = 'this that this those this these.';
        $a++ while(s/this//);
    },
    'c' => sub {
        $_ = 'this that this those this these.';        
        $a = s/this/this/g;
    }
});

[download]
my machine shows that your 'c' option is the fastest of these
      Rate    a    b    c
a 478240/s   --  -4% -19%
b 497018/s   4%   -- -16%
c 588235/s  23%  18%   --

[download]

Replies are listed 'Best First'.
Re^4: Count number of occurrence of word
by Laurent_R (Canon) on Mar 09, 2014 at 20:06 UTC
    Gosh, you are right, how silly on my part. I looked at the results too quickly and interpreted them the wrong way.
[reply]
      happens to everybody,
      and still your option is the fastest one here ^)
[reply]
[reply]

In Section Seekers of Perl Wisdom