두 개의 연속 패턴 일치마다 앞뒤 문자열 추가

Question

두 개의 연속 패턴 일치마다 앞뒤에 문자열을 추가하려면 어떻게해야합니까?

예를 들어 :

if (a == 5) 
    `uvm_info ("some display message"); 

가 여기에 두 개의 연속 된 패턴이 "만약"과 "uvm_info"이다 : 나는 다음과 같은 몇 가지 코드가 있습니다. if와 uvm_info가 연속적으로 나오는 경우에만 "begin"과 "end"를 추가해야합니다.

는 지금은

if (a==5) 
    begin 
    `uvm_info ("some display message") 
    end 

내가 말을 시작할 추가 할 수 있습니다처럼이의 매칭을 고려하지 않아도 쉽게 경우 출력이 원하는 패턴은 다음 명령을 사용하여 "경우"

awk '/`uvm_info/{print "begin"; print; print "end";next}1' test_file 

을 하지만 "if"패턴을 처리해야하고 가능한 경우 uvm_info와 같은 들여 쓰기를 설정하고 싶습니다.

아무도 도와 줄 수 있습니까?

Answer 1

약간의 조정은

awk 'x&&/`uvm_info/{$0=(y=substr($0,1,index($0,"`")-1))"begin\n"$0"\n"y"end"}{x=0}/if/{x=1}1' 

Answer 2

이 정규 표현식을 수행합니다

s/(if[^;]+?)\s+(.*?uvm.*?);/\1\nbegin\n \2;\nend/gm 

http://regex101.com/r/mD7gK4/3

편집 : 입력 :

if (a == 5) 
    `uvm_info ("some display message"); 

if (hello) 
    `uvm_info ("some display message"); 

if (answer_toeverything == 42) 
    `uvm_info ("some display message"); 

uvm_info ("some display message"); 

uvm_info ("some display message 

출력 :

if (a == 5) 
begin 
    `uvm_info ("some display message"); 
end 

if (hello) 
begin 
    `uvm_info ("some display message"); 
end 

if (answer_toeverything == 42) 
begin 
    `uvm_info ("some display message"); 
end 

uvm_info ("some display message"); 

uvm_info ("some display message"); 

나는 백틱으로 무엇을해야할지 모르겠다. (우연히 예를 든다면). 바깥에서 이것을 억제하려면 검색 결과로 (if[^;]+?)[^;]*?(uvm.*?);을 대신 사용할 수 있습니다 (http://regex101.com/r/mD7gK4/5).

당신은 펄이 방법으로 파일이 정규식을 적용 할 수 있습니다 설치 한 경우 : 첫 번째는 표준 입력에서 모든 행을 읽고 하나의 문자열로 합류, 정규식을 적용하고 결과를 출력

perl -e "$_ = join('',<>); s/(if[^;]+?)[^;]*?(uvm.*?);/\1\nbegin\n \2;\nend/gm; print" 

. 코드에