You are here

급하게 질문드립니다.. 빨리답변주시면 정말 감사하겠습니다 ㅠㅠ

set f [open test.txt r]
set all_line {}

while {[gets $f line] >= 0} {
if ![ regexp {[/]{2,}(.*(} $line] {
append all_line ${line}n
}
}
puts $all_line
close $f

이런 형식으로 주석을 제거하면
////////////////////////////////////////////////////
// module declaration
module ss (

input [ 11:0 ] in ; // current address
output out ; // next address
/////////////////////////////////////////////////////
이러한 인풋에서
//가 들어가있는 문장 전체를 지워서
input, output내용까지 모두 지워집니다..
주석만 지우려고 하는데..
도와주세요 ㅜㅜ