Re: Regexes: finding ALL matches (including overlap)

From the top of my head:

$count = () = map /y/g, /<.*?>/g;
[download]

A little more complex, but possibly a little more memory friendly, is:

use List::Util 'sum';
$count = sum map { my $x = () = /y/g } /<.*?>/g;
[download]

Comment on Re: Regexes: finding ALL matches (including overlap) Select or Download Code

Replies are listed 'Best First'.
Re^2: Regexes: finding ALL matches (including overlap) by kaif (Friar) on Jun 04, 2005 at 18:07 UTC
Very nice! In fact, the first time I looked at it, I thought it wouldn't work, because I misunderstood what it did; playing around with it convinced me it worked, however.	[reply]
Re^3: Regexes: finding ALL matches (including overlap) by kaif (Friar) on Jun 04, 2005 at 21:35 UTC
I forgot to mention my mistakes: I confused `/y/g` with the `y//` transliteration operator. I forgot `map` provided list context.	[reply] [d/l] [select]