Captured single quote results in captured phantom quote

Ach has asked for the wisdom of the Perl Monks concerning the following question:

This appears to be a bug in v5.22.2 built for cygwin-thread-multi:

  DB<1> $line = "\"quoted-text\" \cM\cJ"

  DB<2> x $line
0  "\"quoted-text\" \cM\cJ"
[download]

My original regex:

  DB<3> x $line =~ m/^(\s*)((?'quote'"?)[^\s"]*\g{quote})\s+(\[[^\]]*\
+]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
[download]

Remove backreference:

  DB<4> x $line =~ m/^(\s*)((?'quote'"?)[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
[download]

Replaced named with unnamed group:

  DB<5> x $line =~ m/^(\s*)(("?)[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  '"'
3  ''
[download]

Replace unnamed group with internals of group:

  DB<6> x $line =~ m/^(\s*)("?[^\s"]*")\s+(\[[^\]]*\]|)\s*$/
0  ''
1  '"quoted-text"'
2  ''
3  ''
[download]

Needless to say, the commands 2-5 resulted in the wrong result for array element 2.

Has this been discovered and fixed yet?

Ach

Comment on Captured single quote results in captured phantom quote Select or Download Code

Replies are listed 'Best First'.
Re: Captured single quote results in captured phantom quote by AnomalousMonk (Archbishop) on Aug 24, 2016 at 22:45 UTC
NOTE: The original OP had `DB<1> $line = "\"quoted text\" \cM\cJ"` (which does not match at all) in place of the current `DB<1> $line = "\"quoted-text\" \cM\cJ"` (which matches as I would expect). Please be aware that silent updates like this can be very annoying. Please see How do I change/delete my post? for site etiquette and protocol regarding editing posts. ... the wrong result for array element 2. I'm not sure what you mean by this: can you please clarify? Old and new strings match (update: and capture) as I expect. (Update: But I can only run Perl version 5.14.4 at most. (Further Update: I get the same results from my script running under 5.10.1, both Strawberry.)) Read more... (1320 Bytes) Output: Read more... (1278 Bytes) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^2: Captured single quote results in captured phantom quote by choroba (Cardinal) on Aug 25, 2016 at 07:40 UTC
Getting exactly the same output with 5.20.1 on Linux. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]
Re^2: Captured single quote results in captured phantom quote by Ach (Initiate) on Aug 25, 2016 at 13:35 UTC
Sorry, I realized almost immediately that the space would have broken the examples, so I changed it. I'll keep the etiquette in mind next time.	[reply]
Re^3: Captured single quote results in captured phantom quote by AnomalousMonk (Archbishop) on Aug 25, 2016 at 13:49 UTC
Sorry, ... I'll keep the etiquette in mind next time. Ok, great, no problem! But I still don't understand your difficulty as expressed in the OP. Does it have anything to do with the point made in sn1987a's reply? Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re: Captured single quote results in captured phantom quote by sn1987a (Curate) on Aug 25, 2016 at 12:32 UTC
The observed behavior is correct. The named captures do not prevent the contents from saved to the numbered capture variables. So in your first three regexs, element 1 gets the entire quoted string and element 2 gets the first quote.	[reply]
Re^2: Captured single quote results in captured phantom quote by Ach (Initiate) on Aug 25, 2016 at 13:43 UTC
Oh yeah, that's right. Named capture groups doesn't affect the array of captured groups. Thanks	[reply]
Re: Captured single quote results in captured phantom quote by Ach (Initiate) on Aug 24, 2016 at 22:07 UTC
This appears to be still happening in Strawberry Perl: v5.24.0 built for MSWin32-x64-multi-thread	[reply]