Brauchen Sie Hilfe mit Regex, um Strings aus Daten in einen Hash [perl]

Question

zu extrahieren Ich habe ein Stück Daten, aus denen ich einige Zeichenfolgen extrahieren und sie in einen Hash-Wert setzen muss. Würde mich über Ihre Hilfe freuen. Ich habe versucht, dies mit Split-Befehl zu tun, aber es wurde zu kompliziert. Unten ist das Beispiel, mit dem ich helfen möchte.

junk here 
     name="bobby" 
     team="orange" 
    junk here 
     name="steve" 
     team="blue" 
    junk here  
     name="joe" 
     team="blue" 
junk here 

Notwendigkeit, Junk aus Daten zu filtern. Daten-> regex filter-> Hash

Hash Ich möchte:% hash = ('bobby' => 'Orange', 'steve' => 'blue', 'Joe' => 'blue',) ;

Answer 1

Nun, vorausgesetzt, Ihre Werte nie Anführungszeichen enthalten oder jede Form von Flucht und name= ist immer das erste, was auf einer Linie (außer führende Leerzeichen):

my %hash; 

while ($string =~ /^\s*name="([^"]*)"\s*team="([^"]*)"/mg) { 
    $hash{$1} = $2; 
}