在'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 

希望这将是有用的人。