http://qs321.pair.com?node_id=11137435

Update: Oops... I meant this post as a reply to this post, not to myself, but that's ok, no need to re-parent. :)

As you have, I think, suggested elsewhere and as the documentation itself cheerfully admits, a rewrite of this section would be welcome.

That the section begins with a discussion of the evils of zero-width match infinite loops accompanied by a bunch of Perl code examples of such matches that don't actually "work" (in the sense that they don't produce infinite loops) is not helpful. The discussion finally gets around to saying that the Perl RE does not, in fact, allow such loops, but by then one may have been led far down the garden path and abandoned in the dark forest.

Give a man a fish:  <%-{-{-{-<

• Comment on Re^4: Is it safe to use external strings for regexes? (infinite loops)

Replies are listed 'Best First'.
Re^5: Is it safe to use external strings for regexes? (infinite loops)
by LanX (Sage) on Oct 11, 2021 at 22:45 UTC
While I like that Perl doesn't allow this to block the engine, I'm not too sure about the solution.

Ignoring regex grammar to silently continue might be worse than throwing an explicit warning.

Regex-Problem: Empty match detected, trying continuation...

Alike the "deep recursion" warning if Perl dives 100 times deep into the same sub.

But I don't think I know the RE algebra good enough to tell.

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

##### update

s/1000/100/

hippo messaged me that

> FYI, the default recursion limit is "only" 100.

I knew, but when in tested in the debugger I only saw

1000 levels deep in subroutine calls!

It seems that the debugger has a hard breakpoint at 1000 and doesn't show the normal "deep recursion" warning.

Tested with 5.32 on Win.

FWIW:

use strict;
use warnings;

our $limit =1050; our$l=0;

sub tst {
$l++; #warn "level:$l" unless $l%50; die "LIMIT$limit reached" if $l>$limit;
tst();
}

tst();
[download]
##### in debugger
D:\tmp\pm>perl -d tst_recursion.pl

Editor support available.

Enter h or 'h h' for help, or 'perldoc perldebug' for more help.

main::(tst_recursion.pl:4):     our $limit =1050; DB<1> c main::tst(tst_recursion.pl:9):$l++;
1000 levels deep in subroutine calls!

DB<1>
[download]

##### normal run

D:\tmp\pm>perl tst_recursion.pl
Deep recursion on subroutine "main::tst" at tst_recursion.pl line 12.
LIMIT 1050 reached at tst_recursion.pl line 11.

D:\tmp\pm>
[download]

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery