tcl - 使用 expect 到 SSH 到服务器并执行命令

Question

我想编写一个通用的 expect 脚本来通过 SSH 登录到系统并执行一些命令。我发现的一个示例如下:

#!/usr/bin/expect

set fid [open ./.secret]
set password [read $fid]
close $fid
spawn /usr/bin/ssh root@[lindex $argv 0]
expect {
  -re ".*Are.*.*yes.*no.*" {
    send "yes\n"
    exp_continue
    #look for the password prompt
  }

  "*?assword:*" {
    send $password
    send "\n"
  }
}

send -- "PS1='>'\r"
expect -re ">$" { send "hostname\r" }
expect -re ">$" { send "pwd\r" }

...脚本似乎可以正确登录，但它没有执行最后 2 次发送。想法？

编辑: 启用 exp_internal 后，我注意到以下内容:

expect: does "" (spawn_id exp4) match glob pattern "*"? yes
expect: set expect_out(0,string) ""
expect: set expect_out(spawn_id) "exp4"
expect: set expect_out(buffer) ""
send: sending "PS1='>'\r" to { exp4 }
Gate keeper glob pattern for '>$' is '>'. Activating booster.

expect: does "" (spawn_id exp4) match regular expression ">$"? Gate ">"? gate=no


expect: does "\r\n" (spawn_id exp4) match regular expression ">$"? Gate ">"? gate=no
Last login: Tue Nov  6 14:13:31 2012 from 1.x.x.x

expect: does "\r\nLast login: Tue Nov  6 14:13:31 2012 from 1.x.x.x\r\r\n" (spawn_id exp4) match regular expression ">$"? Gate ">"? gate=no

我正在尝试发送 PS1='>'\r 因为我想覆盖提示。我不认为我有任何方法可以预测提示是什么，因此，我不知道会出现什么模式。从上面看，提示似乎没有改变。你如何解决这样的问题？

Answer 1

您的脚本似乎没有任何明显错误(尽管使用不同的提示可能会使匹配更容易一些)。这意味着它是微妙的。我建议添加这个:

exp_debug 1

到脚本早期的某个地方。它将使 Expect 引擎打印出更多关于它正在做什么的很多，这将(可能)帮助您了解出了什么问题，或者失败了，帮助这里的人帮助您......