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

It seems the \\., which captures the \" in the target, is not possessive, and is causing the error.

The following works in the given case. Are there cases where it fails?

print "NOT MATCHED!\n" unless
  /^ " (?: [^"\\]++ | (?: \\. )++ )*+ " /x ;
[download]

Update:

Playing around more, it seems that the possessives are not needed on the internals, but only that the \\. should have a quantifier:

print "NOT MATCHED!\n" unless
  /^ " (?: [^"\\]+ | (?: \\. )+ )*+ " /x ;
[download]

This works on a string of length 100 million, in <2s on my machine. (I didn't try any longer strings.)

-QM
--
Quantum Mechanics: The dreams stuff is made of

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

Replies are listed 'Best First'.
Re^2: What regex can match arbitrary-length quoted string? by QM (Parson) on Sep 29, 2017 at 13:26 UTC
Assuming this is correct... Is this a simple omission or transcription error in perlre? Besides the entry in perlre, where else is the original solution given? Should it be updated or annotated? -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l]
Re^2: What regex can match arbitrary-length quoted string? by Anonymous Monk on Sep 29, 2017 at 13:51 UTC
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]	[reply] [d/l]
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]


Perl-Sensitive Sunglasses
	PerlMonks