Extract n-te Vorkommen mit Perl Regex

Question

Ich versuche, den besten Weg zu finden, eine Linie, die wie folgt aussieht zu analysieren:


Explicit|00|11|Hello World|12 3 134||and|blah|blah|blah

Ich möchte nur das Zeug extrahieren zwischen dem 6. und 7. vertikalen Balken |
Ich habe versucht, so etwas wie

if ($line =~ /^(.*\|){6}(\w*)\|/) { 
    print $2; 
} 

Das Problem ist, dass der erste Teil der längste Sequenz passend möglich, weil die .* zu sein scheint, vielleicht ist es etwas anderes ich verwenden soll. Zwischen den vertikalen Balken befinden sich alphanumerische Zeichen, Leerzeichen und Satzzeichen.

Sollte ich die kürzeste zwischen ihnen übereinstimmen?

Answer 1

Sie können stattdessen .*? verwenden, um die * zu modifizieren, um weniger zu bevorzugen.

Dies könnte immer noch an der falschen Stelle übereinstimmen, wenn das gewünschte Feld Nicht-Wort-Zeichen hat; Um dies zu verhindern, können Sie entweder explizit etwas sagen, aber | (([^|]*\|){6}) oder deaktivieren Sie die Rückverfolgung für diesen Teil (((?>.*?\|)){6}).

Oder Sie könnten nur Split verwenden:

if (my $seventh = (split /\|/, $line, 8)[6]) { 
    print $seventh; 
} 

(die 8 ist optional und teilt aufgeteilt nicht versuchen, mehr zu stören, nach dem 7. Erreichen |)

Answer 2

Verwendung gespalten. So etwas wie my @fields = split /\|/, $str sollte funktionieren. Dann indizieren Sie einfach das Feld, an dem Sie interessiert sind (auch leere Felder bleiben erhalten). | muss als Escape-Operator maskiert werden.