tcl - while循环中的tcl错误裸词“字符串”

Question

我是 TCL 的新手，我有以下 if 和 while 循环：

cd c:/users/john/desktop
set file1 [ open 1n5u.pdb ]
set file2 [ open alpha.pdb w]
while {$x==0 } {
    set p1 [gets $file1]
    set length1 [string range $line 0 3]
    set length2 [string range $line 14 15]
    set length3 [string index $line 78]
    if {(string equal $length1 "ATOM") && (string equal $length2 "CA")&& (string equal $length3 "C")} {
        puts $file2 $line }
    set x  [ eof $line ]
}
close $file1
close $file2

我的 while 循环不能正常工作；错误是：表达式“（字符串等于 $length1 “ATOM”...”中的无效裸字“string”；应该是“$string”或“{string}”或“string（...）”或... . 我该如何解决？

标签： tcl