Warum versucht Perl6 regex ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Question

Ich versuche, den ersten Namen in einer Regex zu extrahieren, aber ~~ scheint zu einem unveränderlichen Container zuzuordnen. Warum? Was habe ich falsch gemacht?

my $test= ' "DOE , JOHN" '; 

grammar findReplace { 
    regex TOP   { \s* <ptName> \s* } 
    regex ptName   { <aName> } 
    regex aName   { \" .+? \" } 
} 

class rsAct { 
    method TOP ($/) { make "last name is: " ~ $<ptName>.made; } 
    method ptName ($/) { 
     my $nameStr = $/.Str; 
     if $nameStr ~~ m/ \" (<alpha>+) .* \, .* \"/{ 
      my $lastName = $/[0]; # I want $/[0] sub-string of outer $/ 
      make $lastName; 
    } 
    } 
} 

my $m = findReplace.parse($test, actions => rsAct.new); 
say $m.made; 

und der Fehler ich bekam, war dies:

Cannot assign to a readonly variable or a value 
    in method ptName at shit.pl line 13 
    in regex ptName at shit.pl line 5 
    in regex TOP at shit.pl line 4 
    in block <unit> at shit.pl line 20 

ich eine Unterkette der äußeren $/zu bekommen versuchen, die ein Muster übereinstimmt; Warum sollte es eine Aufgabe sein?

Vielen Dank für Ihre Hilfe !!!

Answer 1

Sie verwenden den Operator ~~ in einer Funktion, die bereits $/ als Argument definiert hat. Argumente sind standardmäßig schreibgeschützt, daher schlägt die Zuweisung fehl.

Es sollte ausreichen, if $nameStr.match(/your regex/) -> $/ { ... } anstelle des ~~ Operators zu verwenden. Sie erhalten eine neue $/ innerhalb des Blocks, die das gewünschte Trefferergebnis haben wird.