Warum bricht ein Wort die richtige Ausgabe in Regex (Perl)?

Question

Ich möchte die Situation mit regulärem Ausdruck in Perl verstehen.

$str = "123-abc 23-rr"; 

Sie müssen beide Wörter neben Minus anzeigen. Regulärer Ausdruck ist:

@mas=$str=~/(?:([\d\w]+)\-([\d\w]+))/gx; 

Und es richtig Ausgabe zeigen: 123, abc, 23, rr. Aber wenn ich Zeichenfolge ein wenig und legte ein Wort in Start ändern:

$str = "word 123-abc 23-rr"; 

Und ich möchte, nehmen Sie dieses erste Wort-Konto, so dass ich meine regexp ändern:

@mas=$str=~/\w+\s(?:\s*([\d\w]+)\-([\d\w]+))*/gx; 

Mein Ausgang muss gleich sein , aber es gibt: 23, rr. Wenn ich \s* oder * entferne, ist der Ausgang 123, abc. Aber es ist immer noch nicht richtig. Wer weiß warum?

Answer 1

Anstatt einen immer spezifischeren Regex für eine immer spezifischere Saite zu erstellen, sollten Sie das Gesamtmuster ausnutzen.

1. Jedes Stück ist durch Leerzeichen getrennt.
2. Das erste Stück ist ein Wort.
3. Der Rest sind Paare, die durch Bindestriche getrennt sind.

Zuerst teilen Sie die Stücke auf Whitespace.

my @pieces = split /\s+/, $str; 

Dann entfernen Sie das erste Stück, es muss nicht gespalten werden.

my $word = shift @pieces; 

gespalten Dann wird jedes Stück auf - in Paare.

my %pairs = map { split /-/, $_ } @words; 

Answer 2

Für jede Übereinstimmung wird jede Erfassung zurückgegeben.

---

Im ersten Snippet stimmt das Muster zweimal überein.

123-abc 23-rr 
\_____/ \___/ 

Es gibt zwei Aufnahmen, so vier (2 * 2 = 4) Werte zurückgegeben.

---

Im zweiten Snippet stimmt das Muster einmal überein.

word 123-abc 23-rr 
\________________/ 

Es gibt zwei Erfassungen, daher werden zwei (2 * 1 = 2) -Werte zurückgegeben.