정규식으로 한라인에서 두가지를 교정하려고 합니다(vi->perl

johlim의 이미지

-DSIZE=100
혹은
-DSIZE = 100
-DSIZE= 100
-DSIZE =100

#define SIZE 100
으로 바꾸고 싶습니다.

Perl 에서 사용할수 있게 가능한 한줄의 정규식으로 하면 좋겠지만
어렵다면 단계적으로 적용해도 될것 같은데 정규식 고수 분들의 관심을 부탁드립니다.

참고로

vi에서는
1차로
%s/^-D/#define /g
2차로
%s/=/ /g

해서 해결하고 있습니다

p.s
특정문자가 있는 라인 삭제하는 정규식도 좀 부탁드리겠습니다.

차리서의 이미지

Perl 정규표현식은 잘 모르지만, vi에서는 다음과 같이 하면 되는군요:
:%s/^-D\([^ =]*\) *= *\(.*\)$/#define \1 \2/g

--
자본주의, 자유민주주의 사회에서는 결국 자유마저 돈으로 사야하나보다.
사줄테니 제발 팔기나 해다오. 아직 내가 "사겠다"고 말하는 동안에 말이다!

mr.lee의 이미지

s/^-D(\w)+\s*=\s*(\d+)$/#define $1 $2/

어째 별로 스스로 많이 해보지 않고 질문하시는것 같기도 하네요. php나 perl 사이트의 regular expression 부분을 좀 더 보심이 어떠실지.

johlim의 이미지

우선 답글 바로 달아주셔서 감사합니다.

제가 perl 용이 필요한 건 디렉토리를 재귀적으로 돌아다니면서
변환할필요가 있어서 잘 모르는 perl에 손을 내밀고 있습니다.

펄 책을 두권이나 끼고 있는데 정규식은 참.. 모르겠네요

올려주신 perl 테스트 해보니 아래와 같이 나오네요..
일단 SIZ까지 매칭이 된 것 같은데 ..

Quote:

D:\source>type a.tcc
-DSIZE=100
-US=100
-Ijflafa
-I..j
-USZ
-DJJ

D:\source>perl -p define.pl a.tcc
#define E 100
-US=100
-Ijflafa
-I..j
-USZ
-DJJ

D:\source>type define.pl
s/^-D(\w)+\s*=\s*(\d+)$/#define $1 $2/

그리고 "="은 optional 한 거라서 있는 경우도 있고 없는 경우도 있는 조건인데 이건 제가 설명을 잘못드린 것 같네요.

vi에서 두단계로 나누어서 하는 이유가
한라인에서 두번 변경해야하는 것 때문이었습니다.

..^^

결국 perl 로 나눠서 아래와 같이 진행하기로 했습니다.
감사합니다.

Quote:

D:\source>type define.pl
s/^-D/#define /

D:\source>type final.pl
s/(=)/ /

perl -p define.pl a > tmp
perl -p final.pl tmp > a

A better tomorrow

mr.lee의 이미지

아..테스트안하고 그냥 바로 답글을 적어서 괄호위치가 잘못되었었군요.

[wm@koguryo dev 19:02:23]$ cat a.tcc
-DSIZE=100
-US=100
-Ijflafa
-I..j
-USZ
-DJJ

[wm@koguryo dev 19:02:27]$ perl -p define.pl a.tcc
#define SIZE 100
-US=100
-Ijflafa
-I..j
-USZ
#define JJ

[wm@koguryo dev 19:02:37]$ cat define.pl
s/^-D(\w+)\s*(=\s*(\d+))?$/#define $1 $3/

이건 한번 둘러보시면 도움이 될지도.

http://www.ezdoum.com/upload/2/20020519003010/reg.txt
http://www.perl.com/doc/manual/html/pod/perlre.html
http://man.phpschool.com/manual/kr/pcre.pattern.syntax.php

아 그리고 무엇보다 regex 은 스스로 무수히 많이 해봐야 합니다. 오렐리의 regular expression인가 하는책 (저는 아직 못봤습니다만) 괜찮다고 하더군요.