想写一个具有以下功能的tcl脚本，但是总是碰见问题
读取文件a中的命令，并将其send到远端的lab上
在碰到结束符$的时候，查询是否执行完成
执行完成之后，send查询语句，并将结果保存到文件。
碰见的问题：
只能保存最开始的查询结果，以后的会跳出
记录只能保存在文件的末尾...
code在后边附上，哪位大神给帮忙看看额
proc Is_finished {} {
set flag TRUE
while {$flag} {
send "query finish\r"
expect {
"inquery" {sleep 5; continue}
"finish" {set flag FALSE}
timeout { puts $log "test fail";set flag FALSE}
}
}
}
proc save_result {} {
set log [open Result w+]
log_file -open $log
send "query status\r"
expect "#"
send "puts all log\r"
expect "#"
send "\r"
expect "#"
log_file
close $log
}
set file [lindex $argv 0]
set fileid [open $file r+]
seek $fileid 0 start
set timeout 120
spawn ssh admin@192.168.0.115
expect "password:"
send -- "123456\r"
expect ":admin>#"
while {1==1} {
set chars [gets $fileid line1]
if { $chars == 0 } {continue} else {
if { $chars < 0 } {break} else {
if { [string index $line1 0] == "#" } {
#puts $log "==================$line1.result====================="
} else {
if { [string index $line1 0] == "$" } {
Is_finished
save_result
} else {send "$line1\r"}
}
}
}
}
close $fileid
