펄 패턴 일치와 나는 다음과 같은 번역을 달성하고자하는 펄에서

Question

추가 :

stmt1; gosub xyz; 

나는이 작업을 수행 할 수있는 방법

stmt1; xyz(); 

에를? 편집 할 파일 (replaceing있는 file.ext)에 명령 줄에서

Answer 1

이미 approximative 답을 제공하고 주어진 답변을,이 에지의 경우 처리됩니다 (세미콜론이 누락 된 경우, 세미콜론 다음에 추가 절).

perl -plwe 's/\bgosub\s+([^;]+)/$1()/g' 

그것은 "아니 세미콜론"하고 제거 공백 다음에 gosub 키워드 뒤에 문자의 순서와 일치합니다. /g 글로벌 수정 자도 추가했습니다. 모든 행을 하나의 행에서 처리하려고 할 가능성이 높습니다. 부분 일치를 방지하려면 단어 경계 \b을 사용하십시오. legosub을 대체하지 마십시오.

단어 경계가 충분하지 않은 경우 (예 : .는 단어 문자 사이에 틈이 발생하기 때문에이 1.gosub를 대체, 대신 부정적인 lookbehind을 사용할 수 있습니다

perl -plwe 's/(?<![^;\s])gosub\s+([^;]+)/$1()/g' 

이 gosub 전에 모든 문자는 세미콜론 또는 공백을 제외하고 아무것도 아니라는 것을 요구한다. 이중 부정은 또한 불일치 (라인의 시작)를 허용한다는 것을 유의하십시오.

Answer 2

my $str = 'stmt1; gosub xyz;'; 
$str =~ s/gosub (.*?);?/$1();/; 

print $str; 

Answer 3

실행 :

perl -i.bk -pe 's/gosub (.*?);/$1()/g' file.ext