Re^2: What regex can match arbitrary-length quoted string?

Your update doesn't solve the problem.

$_ = '"' . ('x\"' x 100000) . '"';
print "NOT MATCHED!\n" unless
  /^ " (?: [^"\\]+ | (?: \\. )+ )*+ " /x;
__END__
Complex regular subexpression recursion limit (32766) exceeded at foo 
+line 4.
NOT MATCHED!
[download]

Comment on Re^2: What regex can match arbitrary-length quoted string? Download Code

Replies are listed 'Best First'.
Re^3: What regex can match arbitrary-length quoted string? by QM (Parson) on Oct 03, 2017 at 10:46 UTC
Hmmm...I get "NOT MATCHED!", but no error message. But there are other inconsistencies. Putting several into a single script: #!/usr/bin/perl use strict; use warnings; our $quotes = '"' . ('\"' x 10000000) . '"'; print "Length of string is ", length($quotes), "\n"; our @qr; push @qr, qr/^ " (?: [^"\\]++ \| \\. )+ " /x ; push @qr, qr/^ " (?: [^"\\]++ \| (?: \\. )++ )+ " /x ; push @qr, qr/^ " (?: [^"\\]+ \| (?: \\. )+ )+ " /x ; for my $i (0..$#qr) { print "$i) $qr[$i] ==> "; print "NOT " unless $quotes =~ $qr[$i]; print "MATCHED!\n"; } __END__ Length of string is 20000002 Complex regular subexpression recursion limit (32766) exceeded at ./pm +1200316.pl line 16. 0) (?^x:^ " (?: [^"\\]++ \| \\. )+ " ) ==> NOT MATCHED! 1) (?^x:^ " (?: [^"\\]++ \| (?: \\. )++ )+ " ) ==> MATCHED! 2) (?^x:^ " (?: [^"\\]+ \| (?: \\. )+ )+ " ) ==> MATCHED! [download] `perl -v This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-li +nux-gnu-thread-multi (with 58 registered patches, see perl -V for more detail) Copyright 1987-2015, Larry Wall` [download] -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]
Re^3: What regex can match arbitrary-length quoted string? by jimav (Sexton) on Aug 26, 2023 at 00:29 UTC
Typo there: `$_ = '"' . ('x\"' x 100000) . '"';` presumably should be `$_ = '"' . ('\\"' x 100000) . '"';` (Yes, it sometimes takes me a long time to read my email...)	[reply] [d/l] [select]