Perl regex: Suchen Sie nach Stichwort, die nicht mit

Question

Beispiel beginnend 1: "hello this is me. KEYWORD: blah"
Beispiel 2: "KEYWORD: apple"

Ich möchte nur in der Lage sein KEYWORD in Beispiel 1 zu fangen, nicht 2, da in 2, beginnt es mit KEYWORD

if ($line =~/KEYWORD:/x) { 
    # do something 
} 

Der Haken obige Code beide Beispiele. Wie kann ich Regex ändern, so dass es in Beispiel 1 nur KEYWORD fängt?

PS Schließlich möchte ich Beispiel 1 sein KEYWORD: blah

Answer 1

Wenn Sie nur nach einem Stichwort suchen, sollten Sie index und nicht einen regulären Ausdruck verwenden:

if (index($line, 'KEYWORD') > 0) { 
    # do something 
} 

Siehe the documentation: index STR, SUBSTR kehrt -1 wenn SUBSTR nicht in STR gefunden, sonst ist es den Index SUBSTR in STR zurückzukehren (beginnend bei 0).

Wenn Sie nach einem komplexeren Muster suchen als ein einfaches Schlüsselwort, dann sollten Sie tun, wie @Perl Dog in seiner Antwort sagte.

Answer 2

Wenn Sie einen negative lookbehind assertion, dh für ‚KEYWORD‘ suchen, nicht durch eine bestimmte Zeichenfolge (in Ihrem Fall die vorangestellt ist Start-of- Linienmarkierung ^):

if ($line =~/(?<!^)KEYWORD:/x) { 
    # found KEYWORD in '$line', but not at the beginning 
    print $line, "\n"; 
} 

Output:

hello this is me. KEYWORD: blah 

---

Update: Wie in den Kommentaren erwähnt, der /x Modifikator in meinem ersten Regex nicht notwendig ist, kann aber verwendet wird das Muster besser lesbar zu machen. Es ermöglicht Leerzeichen (einschließlich Zeilenumbrüche) und/oder Kommentare im Muster, um die Lesbarkeit zu verbessern. Der Nachteil ist, dass jedes Leerzeichen/Leerstelle im aktuellen Muster maskiert werden muss (um es von den Kommentaren zu unterscheiden), aber wir haben diese hier nicht. Das Muster kann somit neu geschrieben werden wie folgt (das Ergebnis ist das gleiche):

if ($line =~/(?<!  # huh? (?) ahh, look left (<) for something 
          # NOT (!) appearing on the left. 
       ^)  # oh, ok, I got it, there must be no '^' on the left 
       KEYWORD: # but the string 'KEYWORD:' should come then 
      /x) { 
    # found KEYWORD in '$line', but not at the beginning 
    print $line, "\n"; 
} 

Answer 3

Ich glaube, Sie besser, reale Beispiele

Auf dem Gesicht von ihm geben müssen, benötigen Sie

if (/KEYWORD/ and not /^KEYWORD/) { 
    ... 
} 

Answer 4

ist eine weitere einfache regex

print if /^.+KEYWORD/; 

Spiel

hello this is me. KEYWORD: blah 

Answer 5

Die Antwort ist eigentlich ganz einfach!

/.KEYWORD/ # Not at the start of a line 
/.KEYWORD/s # Not at the start of the string 

By the way, können Sie \b vor KEYWORD zu vermeiden passende NOTTHEKEYWORD hinzufügen möchten.