2 wgdddws wgdddws 于 2014.04.10 09:41 提问

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

想写一个具有以下功能的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

1个回答

coybe_cao
coybe_cao   2014.07.18 14:56

在close $log之前先flush $log试试

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!