附上我的代码。但是,当我执行它时,会出现此错误消息:第 11 行:意外标记 `}' 附近的语法错误
由于我是 tcl 的新手,我不知道哪里出了问题。请帮忙 !!!非常感谢
set filename "a.qip"
set temp [create_temp_file a.qip]
set out [open $temp w]
set in [open $filename r]
set entityname "edward"
while {[gets $in line] != -1} {
if {[string match "*SDC_FILE*" $line]} {
puts $out $line
puts $out "set variant_name $entityname"
} else {
puts $out $line
}
}
close $in
close $out
file link -hard $filename a.qip.bak
file rename -force $temp $filename