expect 脚本问题

jiean

1. 
   
2. proc do_console_login {login pass} {
   
3. 
   
4.         set timeout 5
   
5.         set done 1
   
6. #        set timeout_case 0
   
7. 
   
8.         while { $done } {
   
9.                 expect {
   
10.                         "(yes/no)?" {
    
11.                                         send "yes\n"
    
12.                                         expect "assword:"
    
13.                                         send "$pass\n"
    
14.                                         incr done
    
15.                                         send_user "Login Successfully...\n"
    
16.                         }
    
17.                         "*assword:" {
    
18.                                         send "$pass\n"
    
19.                                         incr done
    
20.                                         send_user "Login Successfully...\n"
    
21.                                 }
    
22. #                       timeout {
    
23. #                                switch -- $timeout_case {
    
24. #                                        0 { send "\n" }
    
25. #                                        1 {
    
26. #                                                send_user "Send a return...\n"
    
27. #                                                send "\n"
    
28. #                                        }
    
29. #                                        2 {
    
30. #                                                puts stderr "Login time out...\n"
    
31. #                                                exit 1
    
32. #                                        }
    
33. #                                }
    
34. #                                incr timeout_case
    
35. #                        }
    
36. #                }
    
37.                 }
    
38.         }
    
39. }
    
40. 
    
41. proc do_exec_cmd {} {
    
42.         expect ":~>"
    
43.         send "uname -a\n"
    
44.         expect ":~>"
    
45.         send "exit\n"
    
46.         expect eof
    
47. }
    
48. if { $argc !=3 } {
    
49. puts stderr "Usage: command host-address username host-password\n"
    
50. exit 1
    
51. }
    
52. 
    
53. 
    
54. set host [ lindex $argv 0 ]
    
55. 
    
56. set name [ lindex $argv 1 ]
    
57. 
    
58. set password [ lindex $argv 2 ]
    
59. 
    
60. spawn ssh $name@$host
    
61. 
    
62. do_console_login $name $password
    
63. do_exec_cmd
    
64. 
    
65. close
    
66. 
    
67. exit 0

复制代码

这是一个远程登录到终端执行ＳＨＥＬＬ　的expect程序，不知道为什么提示proc do_console_login无法执行，请帮忙改下

如果我要是用expect 远程登录到服务器上，执行编译安装软件，是不是得把timeout设置的时间长一点啊，才能阻止超时问题

phoenixson

yes/no "/"是不是需要写成\/

waker

\n ==> \r

jiean

还是不行提示第一个proc无法运行，括号处有问题
invalid command name "}"
    while executing
"}"

cute_orange

多了个}