Я получаю сообщение об ошибке «can't set "::exp::winnt_debug": parent namespace doesn't exist
», когда пытаюсь запустить свой ожидаемый скрипт, используя C-реализацию ожидаемого интерпретатора в Windows (expect543.dll
). Однако тот же сценарий работает нормально, если я запускаю его с помощью команды ActiveState tclsh...
Оператор "set ::exp::winnt_debug 1
" в скрипте является причиной ошибки. Любая идея, в чем может быть причина и как ее решить?
Пожалуйста, найдите код ниже
package require Expect
set ::exp::winnt_debug 1
set prompt "R4#"
set more " --More--"
expect -timeout 10 "$prompt"
set output [open result.txt "w"]
set running 1
spawn plink -telnet "144.21.12.45" -P 2004
send "enable\r"
send "\r"
send "show running-config\r"
send "\r"
while { $running > 0 } {
expect {
"\n" { puts -nonewline $output "$expect_out(buffer)" }
"$more" {send " "}
"lines *-* " { send " " }
#"$prompt" { set running 0 }
eof { set running 0 }
timeout { set running 0 }
}
}
puts "output is .."
package require
?load
? - person Donal Fellows   schedule 05.08.2013