如何處理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結束（模擬按下回車關鍵）。