Ausgabe für jede Zeile der Eingabedatei erhalten. Ich brauche nur einmal Ausgabe

Question

Das sollte ziemlich einfach sein, aber ich habe ein Problem mit dem Fluss eines Awk-Skript. Ich führe das folgende Skript aus und es druckt die Ausgabe immer und immer wieder (wenn ich raten müsste, würde ich sagen, dass es einmal für jede Zeile der Eingabedatei druckt). Wie gewünscht, hier einige gefälschte Eingabe:

[30000] (03/20 00:00:02.950):{0x2D90} Pattern1 5.0.3.57 
[30000] (03/20 00:00:03.911):{0x2D90} Pattern2 5.0.3.57 
[30000] (03/20 00:00:02.950):{0x2D90} Pattern3 5.0.3.16 
[30000] (03/20 00:00:03.911):{0x2D90} Pattern4 5.0.3.16 

Hier ist das Skript:

/Pattern1/ { 
    gsub(/\./,""); 
    agtver=$5; 
} 

/Pattern2/ { 
     gsub(/\./,""); 
    ctrver=$5; 
} 

{ 
if (agtver ~ 50357 && ctrver ~ 50357) { 
     print "Blamo!"; 
} 
else print "No blamo. :(" 
} 

Und hier ist die Ausgabe, die ich bekomme:

[chawkins@chawkins-DT Devel]$ ./fakeawk.awk < fake.txt 
No blamo. :( 
Blamo! 
Blamo! 
Blamo! 

Die Ausgabe, die ich erwartet ist eine einzige Blamo!, wenn die Muster übereinstimmen und eine einzige No blamo. :( wenn es nicht übereinstimmen.

Das Problem scheint zu sein, dass es drei separate {...} Abschnitte gibt, aber ich brauche diese, um zwei Muster verarbeiten zu können ... es sei denn, es gibt eine Möglichkeit, dies zu verdichten.

Answer 1

Wenn Sie Pattern1 und Pattern2 nach dem ersten Mal nie sehen, bleiben Agtver und Ctrver gesetzt. Sie müssen sie wieder auf Null setzen.

bearbeiten Debug-Ausgabe hinzugefügt, sollten Sie sehen können, wo die Logik fehlschlägt. Getestet mit Ihren Daten, danke für das Hinzufügen!

/Pattern1/ { gsub(/\./,""); agtver=$5;}  
/Pattern2/ { gsub(/\./,""); ctrver=$5;} 
{ 
    #dbg print "\n#dbg: $5=" $5 "xx\tagtver=" agtver "xx\tctrver=" ctrver "xxx\t$0=" $0 
    if (agtver ~ 50357 && ctrver ~ 50357) { 
    print "Blamo!"; 
    agtver="" ; ctrver="" 
    } 
    else print "No blamo. :(" 
} 

./fakeawk.awk < fake.txt 

Ausgang

No blamo. :(
Blamo! 
No blamo. :(
No blamo. :(

Ich hoffe, das hilft.

Answer 2

TXR:

@(gather :vars (agtver ctrver)) 
@ (skip :greedy) @/Pattern1/ @{agtver /5\.0\.3\.57/} 
@ (skip :greedy) @/Pattern2/ @{ctrver /5\.0\.3\.57/} 
@(end) 
@(do (put-string "Blamo!\n")) 

Ausgang:

$ txr fake.txr fake.log 
Blamo! 

$ echo "junk" | txr fake.txr - 
false 

Die @(gather) Richtlinie für diese perfekt. Es passt Material an, das in beliebiger Reihenfolge auftreten kann, und :vars (agtver ctrver) fügt die Einschränkung hinzu, dass Bindungen für beide Variablen gefunden werden müssen oder andernfalls ein Fehler auftritt.

Wir können dann die zwei unabhängigen Bedingungen ausdrücken, nach denen wir suchen, als ein Paar von unabhängigen Übereinstimmungen mit ganzen Linien, die zwei verschiedene Variablen binden.

Die Logik kann als „bitte scannen Sie den Eingabebindungen Variablen sammeln agtver und ctrver oder sonst fail“ gelesen werden. Und dann werden die Regeln zum Sammeln der Variablen angegeben, eine pro Zeile.

Wir brauchen nicht wirklich die Nebenwirkung des Drucks Blamo!: die erfolgreiche oder fehlgeschlagene Beendigung des Programms sagt uns alles.