無効なbarewordエラーを取得する

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' 
    } 
} 

が、そのが動作していない、時にはそれがエラー「無効な裸の単語」を与えるを書きました。 私を助けてもらえますか？

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