1. 阿里云>
  2. 云栖社区>
  3. 博客>
  4. 正文

expect/tcl 的问题, 自动保存结果失败

tcl自动保存结果expect

问题描述

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_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 -- ""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试试

相关文章

社区推荐

立即打开APP,浏览更多精彩内容