You are here

주석 제거해서 읽기

안녕하세요 또 질문드립니다.
tcl에서 화일을 읽어 주석을 제거하고 다시저장할려고 합니다.
주석은 //이나 /* */ 을 사용할려고 하고요

아래문장은 // 주석을 찾아내어서 제거해야되는데. 찾기는 했는데 찾은 주석부분이 아닌 부분을 저장해야 되는데 잘안되서요 현재상태로는 주석인 부분만 찾아서 저장이 됩니다 ㅠㅠ 반대로 주석이외의 부분만 저장 하는 방법좀 가르쳐 주시면 감사드리겠습니다. 그럼 수고하세요~

while { [ eof stdin ] == 0 } {
gets stdin line

if [ regexp {[/]{2,}(.*)} $line all ex_line ] {
append all_line $ex_line
}
}