Print Line if next line Match a pattern

Hi All,

Does anyone know how to print 1H1A....... in peal script
print line ^1H1A....... if next line equal 5R0RECEIPT....

Thank for help:D

Cat st.txt
1H1A-IN-11-5410-0009420|1010047766|dsds|1|N|IN|IN|000000|1||N|<<<line match
5R0RECEIPT|
5R0RECEIPT|
1H1A-IN-11-5410-0029058|1420416178|dsds|1|N|IN|IN|000000|1||Y|<<<line match
5R0RECEIPT|
1H1A-IN-11-5410-0100641|1479679633|ewwe|1|N|IN|IN|000000|1||N|
1H1A-IN-11-5410-0101238|1479679699|ewwe|1|N|IN|IN|000000|1||N|<<<line match
5R0RECEIPT|
5R0RECEIPT|
5R0RECEIPT|
1H1A-IN-11-5410-0167611|1511466109|weww|1|N|IN|IN|000000|1||Y|
1H1A-IN-11-5410-0003968|1010320662|wewe|1|N|IN|IN|000000|1||Y|
1H1A-IN-11-5410-0051580|1421275869|klkl|1|N|IN|IN|000000|1||N|<<<line match
5R0RECEIPT|
5R0RECEIPT|
result
1H1A-IN-11-5410-0009420|1010047766|dsds|1|N|IN|IN|000000|1||N|
1H1A-IN-11-5410-0029058|1420416178|dsds|1|N|IN|IN|000000|1||Y|
1H1A-IN-11-5410-0101238|1479679699|ewwe|1|N|IN|IN|000000|1||N|
1H1A-IN-11-5410-0051580|1421275869|klkl|1|N|IN|IN|000000|1||N|
awk '/1H1A/{str=$0}/5R0RECEIPT/&&str!=""{print str;str=""}' infile
1 Like

script is work Thank you