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

Huh?

$ perl -wE '$f = "foo"; say pos $f while $f =~ m{ ( o? )* }gx;'
0
3
3
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^3: Is it safe to use external strings for regexes? (infinite loops) Select or Download Code

Replies are listed 'Best First'.
Re^4: Is it safe to use external strings for regexes? (infinite loops) by LanX (Saint) on Oct 11, 2021 at 15:36 UTC
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}	[reply]
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]
Re^6: Is it safe to use external strings for regexes? (infinite loops) by LanX (Saint) on Oct 11, 2021 at 15:41 UTC
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]