Re^2: Simple way to skip spaces and # comments


laziness, impatience, and hubris
	PerlMonks

Re^2: Simple way to skip spaces and # comments

by leszekdubiel (Scribe)

on Jul 31, 2020 at 14:36 UTC ( [id://11120147]=note: print w/replies, xml )

Need Help??

in reply to Re: Simple way to skip spaces and # comments
in thread Simple way to skip spaces and # comments

/\G (?: \s++ | \# .*+ )++ /xgc

^^^^ This makes error about recursion limit...

# for f in `seq 40123`; do echo " #alfa beta"; done | perl -e 'use str
+ict; use warnings; undef $/; my $s = <STDIN>; print length $s, "\n"; 
+$s =~ /\G (?: \s++ | \# .*+ )++ /xgc; print pos $s, "\n"; '
481476
Complex regular subexpression recursion limit (32766) exceeded at -e l
+ine 1, <STDIN> chunk 1.
196597
[download]

Comment on Re^2: Simple way to skip spaces and # comments Select or Download Code

Replies are listed 'Best First'.

Re^3: Simple way to skip spaces and # comments
by ikegami (Patriarch) on Jul 31, 2020 at 14:42 UTC

If certain things are expected to match more than 32766 times, you need to break it down.

So if the following exceeds the limit,

a+
[download]

(?:a{1,32766})+
[download]

/\G (?: \s++ | \# .*+ )++ /xgc
[download]

/\G (?: (?: \s++ | \# .*+ ){1,32766}+ )+ /xgc
[download]

/\G
   (?: (?:
        (?: \s{1,32766}+ )++
      | \# (?: .{1,32766}+ )*+

   ){1,32766}+ )+
/xgc
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://11120147]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others romping around the Monastery: (1)

chatterbot

As of 2024-04-25 01:09 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found