note
halley
I also wanted to abuse the regex system with twelve-level-deep <code>s///e</code> recursion to implement my [id://253363], but instead found that perl would crash horribly if it tried to recurse there.
<code>
for $pattern (@patterns)
{
while ($data =~ m/(?=$pattern)/g)
{
do_recurse($data, pos($data), $pattern);
# $data is the source
# pos($data) is the found place in the souce
++pos($data);
}
}
</code>
The alternative method uses <code>pos()</code> as an lvalue and <code>m/(?=)/g</code> as in the loop above, to allow me to iterate through matches yet not recurse via any regex code-evaluating trick. I do recurse, but not by getting the regex to do the call.
<div class="pmsig"><div class="pmsig-249603">
<p>--<br><tt>[ e d @ h a l l e y . c c ]</tt>
</div></div>
318350
318350