如何处理 tcl 期望输出

Question

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

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

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 结尾（模拟按 Return 键）。