Awk-Skript zum Identifizieren falscher Wortfolgen

Question

Ich habe eine Datei wie unten gezeigt:

FHEAD01
THEAD02
TCUST03
TITEM04
TITEM05
IDISC06
TTEND07
TTAIL08
THEAD09
TCUST10
IDISC11....
TITEM12
TTEND13
TTAIL14
THEAD15
TITEM16
IDISC17
TTEND18
TTAIL19
THEAD20
IDISC21.....
TITEM22
TTEND23
TTAIL24
THEAD25
TITEM26
IDISC27
IDISC28
TITEM29
TTEND30
TTAIL31
FTAIL32

Ich möchte die folgende Sequenz ermitteln und Datensätze ausdrucken:

1) THEAD,TCUST,IDISC,*
2) THEAD,IDISC,*

Erwartete Ausgabe Folgende Datensätze sollen gedruckt werden

THEAD09
TCUST10
IDISC11
THEAD20
IDISC21

Ich habe den folgenden Code ausprobiert, aber er liefert keine Ergebnisse:

awk '/THEAD/; /TCUST/ ; /IDISC/ ' test1.dat

Answer 1

awk '
    /THEAD/{
        p=$0                 #store line with `THEAD`
        getline              #read next line from file
        if(/TCUST/){         #if there is `TCUST` in it
            p=p ORS $0       #add it to `p` vaiable
            getline          #and get next line from file
            }
        if(/IDISC/)          #if there is `IDISC` in line
            print p ORS $0   #print `p` variable altogether with line
    }
    ' test1.dat