[완료]Perl로 특정 구간을 치환하는 방법 문의드립니다.
글쓴이: whitebms0607 / 작성시간: 월, 2010/02/08 - 11:08오전
안녕하세요.
Perl 로 파일 내용을 좀 수정하려고 하는데요.
예를 들어 파일마다 아래와 같은 구간이 있는데요.
----------------------------------------
//Delete section start
abc
def
xzv
www
//Delete section end
-------------------------------------------
perl명령어 사용해서
>> find . -name '*.file' -exec perl -pl -e 's/ ???? //g' {} \;
하려고 하는데요.
Delete section start 부터 Delete section end 구간을 몽땅 지우려고 하는데
어떻게 정규표현식을 사용할지 모르겠습니다.
도움 부탁드립니다.
Forums:
이렇게합니다.
perl -pi -e 'print unless m{^//Delete section start$}..m{^//Delete section end$} file'묶으면 이렇게
find . -name '*.file' -exec perl -pi -e 'print unless m{^//Delete section start$}..m{^//Delete section end$}' '{}' \;하지만 스크립트를 사용할 것을 권장
#/usr/bin/perl -pi print unless m{^//Delete section start$} .. m{^//Delete section end$};설명은 perldoc 문서의 perlop 부분을 참조합니다.
perlop 의 Range Operator 란에 설명되어 있습니다.
감사합니다. ^^
감사합니다.
알려주신 내용과 Perl 관련 자료 참고해서 스크립트를 작성하였습니다.
한줄에 끝내려했던건 정말 과도한 욕심이었던것 같네요;;;
댓글 달기