问题描述
- expect/tcl 的问题， 自动保存结果失败
- 想写一个具有以下功能的tcl脚本，但是总是碰见问题
读取文件a中的命令，并将其send到远端的lab上
在碰到结束符$的时候，查询是否执行完成
执行完成之后，send查询语句，并将结果保存到文件。
碰见的问题：
只能保存最开始的查询结果，以后的会跳出
记录只能保存在文件的末尾...
code在后边附上，哪位大神给帮忙看看额proc Is_finished {} {
set flag TRUE
while {$flag} {
send ""query finishr""
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 statusr""
expect ""#""
send ""puts all logr""
expect ""#""
send ""r""
expect ""#""
log_fileclose $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 -- ""123456r""
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 ""$line1r""}
}
}
}
}
close $fileid
解决方案
在close $log之前先flush $log试试