如何处理tcl预期输出

Question

我正在编写一个expect脚本来telnet到路由器，做一些配置，期望一些输出。

如果所需的提示不可用，则会等待它并超时。 那么，我该如何处理这个问题，并打印一个错误消息。

set timeout 30; 

puts "Telnet to $IP 2361\n\n"; 
spawn telnet $IP 2361; 

expect ">"; 

send "ACT-USER::$user_name:1::$password;"; 
expect ">"; 

如果未收到期望值，我该如何处理和打印错误消息？

Answer 1

与超时处理很好，需要一个稍微复杂的使用expect：

expect { 
    ">" { 
     # Got it; don't need to do anything here because we run the code after 
    } 
    timeout { 
     send_user "timed out, oh no!\n" 
     exit 1 
    } 
} 

# Now we put the rest of the script... 
send "ACT-USER....blah" 
# ... 

注意，我很惊讶，你的send不\r结束（模拟按下回车关键）。