|Perl Monk, Perl Meditation|
Re^3: Problems searching and highlighting proximity words in a textby Krambambuli (Curate)
|on May 24, 2010 at 09:20 UTC||Need Help??|
If you run your code with perl -Dr (assuming your perl interpreter is compiled with debugging enabled), you'll see what I can see now too:
the regexp engine works and works and works...
However, I cannot see yet exactly what the solution is; at first sight, the regexp seems to be only extremely inefficient via the backtracks when it does _not_ find what it looks for.
A work-around to avoid the heavy backtracking when the wanted terms are not to be found in the wanted order might look like
That works for me, but I guess there should be some nicer solutions too.
Update2 Looks like using a regexp like
works OK and also avoids the excessive backtracking for unsuccessful lookups. You'll have however to add an $4 and use it instead of $3 for the extra new match introduced with this.