Fügen Sie ein Wort am Anfang der Zeile in eine Textdatei ein

Question

Suchen Sie nach der Zeilengruppe, die mit "zone" beginnt, und fügen Sie am Anfang der vorherigen Zeile ein Wort "Heading" hinzu. Vielen Dank für Ihre Hilfe im Voraus

Code:

Zoning A 
    zone zonename1 
    zone zonename2 
    zone zonename3 

    Team B 
    zone zonename4 
    zone zonename5 

gewünschte Ausgabe:

perl -000 -pe 's/^/Heading/;s/\s+/ /' inputfile 
Heading Zoning A 
    zone zonename1 
    zone zonename2 
    zone zonename3 

Heading Team B 
    zone zonename4 
    zone zonename5 

Answer 1

Mit awk:

 Heading Zoning A 
     zone zonename1 
     zone zonename2 
     zone zonename3 

    Heading Team B 
     zone zonename4 
     zone zonename5 

Answer 2

Wenn Sie perl nutzen könnten. Solange die Gruppenüberschrift nicht mit Wort Zone startet:

$ awk ' 
/^ *zone/&&p!~/^ *zone/ { 
    sub(/^ */,"&Heading ",p) 
} 
NR>1 { print p } 
{ p=$0 } 
END { print p } 
' file 
    Heading Zoning A 
    zone zonename1 
    zone zonename2 
    zone zonename3 

    Heading Team B 
    zone zonename4 
    zone zonename5