在'expect'中使用條件語句

Question

我需要使用期望自動登錄到TELNET會話，但是我需要照顧同一用戶名的多個密碼。

這是我需要創建流程：

1. 打開Telnet會話的IP
2. 發送用戶名
3. 發送密碼
4. 密碼錯誤？再次發送相同的用戶名，然後不同的密碼
5. 應該已經成功登錄在這一點上...

對於它的價值，這裏就是我這麼遠：

#!/usr/bin/expect 
spawn telnet 192.168.40.100 
expect "login:" 
send "spongebob\r" 
expect "password:" 
send "squarepants\r" 
expect "login incorrect" { 
    expect "login:" 
    send "spongebob\r" 
    expect "password:" 
    send "rhombuspants\r" 
} 
expect "prompt\>" { 
    send_user "success!\r" 
} 
send "blah...blah...blah\r" 

不用說，這不起作用，也不看起來非常漂亮。從我的冒險與谷歌期待似乎是一個黑暗藝術的東西。在此先感謝任何人提供有關此事的協助！

Answer 1

不得不爲所有期望的程序員推薦Exploring Expect書 - 非常寶貴。

我已經重寫你的代碼：（未經測試）

proc login {user pass} { 
    expect "login:" 
    send "$user\r" 
    expect "password:" 
    send "$pass\r" 
} 

set username spongebob 
set passwords {squarepants rhombuspants} 
set index 0 

spawn telnet 192.168.40.100 
login $username [lindex $passwords $index] 
expect { 
    "login incorrect" { 
     send_user "failed with $username:[lindex $passwords $index]\n" 
     incr index 
     if {$index == [llength $passwords]} { 
      error "ran out of possible passwords" 
     } 
     login $username [lindex $passwords $index] 
     exp_continue 
    } 
    "prompt>" 
} 
send_user "success!\n" 
# ... 

exp_continue循環回期望塊的開始 - 它就像一個「重做」的聲明。

注意send_user與\n結束不\r

您沒有逃脫>字符在您的提示：這不是特殊的Tcl的。

Answer 2

如果您知道用戶ID和密碼，那麼您還應該知道哪些用戶ID /密碼對與哪些系統對齊。我認爲你最好保留一張使用哪個用戶名/密碼對與哪個系統的映射，然後提取該信息並簡單地使用正確的映射。所以 - 因爲你顯然不喜歡我的建議，那麼我建議你看看wikipedia page並實現一個過程，如果成功則返回0，如果期望超時則返回1。這將允許您檢測提供的密碼何時失敗 - 提示期望超時 - 然後重試。如果這有幫助，那麼現在可以刪除已經編輯它的downvote。

回想起來，如果密碼已更改，您可能希望與地圖一起執行此操作，因爲您希望檢測登錄失敗。

Answer 3

隨着一陣抨擊，我找到了解決方案。原來，期望使用，我不是與所有熟悉的一個TCL語法：

#!/usr/bin/expect 
set pass(0) "squarepants" 
set pass(1) "rhombuspants" 
set pass(2) "trapezoidpants" 
set count 0 
set prompt "> " 
spawn telnet 192.168.40.100 
expect { 
    "$prompt" { 
    send_user "successfully logged in!\r" 
    } 
    "password:" { 
    send "$pass($count)\r" 
    exp_continue 
    } 
    "login incorrect" { 
    incr count 
    exp_continue 
    } 
    "username:" { 
    send "spongebob\r" 
    exp_continue 
    } 
} 
send "command1\r" 
expect "$prompt" 
send "command2\r" 
expect "$prompt" 
send "exit\r" 
expect eof 
exit 

希望這將是有用的人。