올바르지 않은 단어 오류 받기

Question

끝에있는 {}을 얻으면 모든 줄 끝에 '\ n'을 표시하려고합니다.

그래서 명령

set fp [open "test.tcl" r] 
set new_file [open "final.tcl" w+] 
while {![eof $fp]} { 
    get $fp line 
    if $line {$'{'} { 
    puts $new_file '\n' 
    } 
} 

하지만이 작동하지 때로는 오류 "잘못된 bareword는"을 제공을 썼다. 제발 나를 도울 수 있어요.

Answer 1

어떻게

set fp [open test.tcl] 
set new_file [open final.tcl w+] 
while {[gets $fp line] >= 0} { 
    if {[regexp {\{$} $line]} { 
     puts $new_file $line\n 
    } else { 
     puts $new_file $line 
    } 
} 
close $fp 
close $new_file 

어떻습니까?

문서 : close, gets, open, puts, Syntax of Tcl regular expressions, regexp, set, while