in reply to Re^3: Is it safe to use external strings for regexes? (infinite loops)
in thread Is it safe to use external strings for regexes?

dunno, I just RTFM and copied it here! :)

maybe some delta fixed it?

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

  • 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 choroba (Cardinal) on Oct 11, 2021 at 15:40 UTC
    Maybe. It doesn't loop even on 5.16.3 which is the oldest Perl easily available to me.

    Update: 5.10.1 neither.

    Update2: It loops in 5.6.2!

    map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
      I always thought we need tests for snippets in perldocs too.

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

[reply]
Re^5: Is it safe to use external strings for regexes? (infinite loops)
by AnomalousMonk (Archbishop) on Oct 11, 2021 at 17:56 UTC

    Nor on 5.8.9: 

    Win8 Strawberry 5.8.9.5 (32)  Mon 10/11/2021 13:52:47
C:\@Work\Perl\monks
>perl -wMstrict -le "my $f = 'foo'; print pos $f while $f =~ m{ ( o? )
+* }gx;"
0
3
3

    [download]

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom