| -20,5 +20,41 |
|
| 일단 위 두 함수는 1.0의 코드로 고쳐놨습니다. <mysign([[Raymundo]],2005-2-26 3:44 pm)> |
|
| == # intermap 파일에 주석 허용 == |
| intermap 파일에 주석을 달 수 있게 했으면 좋겠는데, 아무래도 주석은 "#"으로 시작하는 게 좋겠죠. 근데 위키에서 intermap 파일을 처리하는 과정상, 주석을 제거한 후에 빈 줄 같은게 없어야 합니다. |
|
| {{{ |
| # 줄의 처음부터 #으로 시작하는 주석 |
| aaaaa AAAAAAAAAAAAAAAAAAAAAAA |
| # 앞에 공백이 있어도 허용 |
| bbbb BBBBBBBBBBBBBBBBBB |
| ccccccc CCCCCCCCCCCCCCC # 이렇게 내용이 있는 줄 뒷부분에 달린 주석 |
| }}} |
| 위와 같은 경우, 주석을 제거하고 나면 |
| {{{ |
| aaaaa AAAAAAAAAAAAAAAAAAAAAAA |
| bbbb BBBBBBBBBBBBBBBBBB |
| ccccccc CCCCCCCCCCCCCCC |
| }}} |
| 이렇게 빈 줄이 없어야 합니다. |
|
| 제가 현재 작성한 치환은 아래와 같습니다. |
| {{{#!vim perl |
| $data =~ s/^\s+//gm; # 각 라인의 앞에 공백 제거 |
| $data =~ s/\s+$//gm; # 각 라인의 뒤에 공백 제거 |
| $data =~ s/^#.*$//gm; # 샵으로 시작하는 라인 제거 |
| $data =~ s/\s+#.*$//gm; # 공백 이후 샵으로 시작하면 거기서부터 라인 끝까지 제거 |
| $data =~ s/(\r?\n)+/\n/gs; # 줄바꿈이 하나 이상 있으면 그걸 하나로 치환. 빈 줄제거. |
| $data =~ s/^\r?\n//gs; # 텍스트 제일 앞에 빈 줄 제거 |
| }}} |
|
| 보다시피 여섯번을 치환을 해야 하니.. 아무리 봐도 맘에 들지 않습니다. 좀 더 효과적인 방법이 없을까요? |
|
| 동일한 질문을 올린 곳: |
| * http://perlmania.org/bbs/bbs.html?mode=read&table=lang&article=2376&page=1 |
| * http://kldp.org/node/68300 |
|
| 반영되었음. <mysign([[Raymundo]],2006-3-12 4:22 am)> |
|
| ---- |
| [[위키위키분류]] |