заменить мульти строку текста с многострочного текста в СЭД и Perl

Question

Вот мой файл

 start 
     exit 0 

     status 
     exit 0 

     stop 
     exit 0 

файл должен быть результат

 start 
     exit 0 

     status 
     exit 152 

     stop 
     exit 0 

любая помощь ценится Как я могу сделать это с помощью СЭД и Perl

Answer 1

Использование Awk

Входной

$ cat f 
     start 
     exit 0 

     status 
     exit 0 

     stop 
     exit 0 

Выходной

$ awk '/exit/ && p {sub($NF,"152")}{p=/status/}1' f 
     start 
     exit 0 

     status 
     exit 152 

     stop 
     exit 0 

Объяснение

• p=/status/ Установить переменную p верно, когда awk находит статус слова
• /exit/ && p когда awk находит слово выхода на текущей записи и переменная p оценивает истинный затем

суб (регулярное выражение, замену [, цель ])

Море rch target, которая рассматривается как строка, для самой левой, самой длинной подстроки, соответствующей регулярному выражению regexp. Измените всю строку, заменив замененный текст замененным. Измененная строка становится новым значением цели. Верните количество замещений (ноль или один). Если третий аргумент опущен, то по умолчанию используется и изменяет $0.

• sub($NF,"152")

Заменитель последнее поле ($NF) с 152 текущей записи, так как третий аргумент не задан, следовательно, по умолчанию $0 изменяется.

• } 1

1 всегда истинно, она выполняет операцию {print $0}

Answer 2

perl -pe's/exit \K\d+/152/ if $f; $f = /status/' 

Использование:

perl -i~ -pe'...' file   # Edit in place with backup 
perl -i -pe'...' file    # Edit in place without backup 
perl -pe'...' file.in >file.out # Read from file 
perl -pe'...' <file.in >file.out # Read from stdin 

Answer 3

по умолчанию С SED можно использовать:

$ sed '/status/{n;s/0/152/}' input 
     start 
     exit 0 

     status 
     exit 152 

     stop 
     exit 0