Tcl/Expect简单用法

安装

Linux

apt\yum\pacman 来安装tcl跟expect

Windows

下载安装tcl环境：http://www.activestate.com/activetcl/downloads

安装Expect包：

C:\tcl\bin\teacup.exe install Expect

使用

Linux下首行为 #!/usr/bin/expect

Windows下首行为 package require Expect

set timeout 30 为命令的超时时间

spawn后面跟shell命令

expect后面是查询返回结果是否包含某字符串

send 执行交互动作，比如 send "admin\r"

interact 表示脚本执行到这里后把控制权交给控制条，也就是切回手工操作

$argc $argv 前者表示参数个数，后者表示所有参数字符串

[lindex $argv 0] 表示第一个参数

expect eof 捕捉结束符

exit 退出

例子

#!/usr/bin/expect

set timeout 30

spawn ssh -l username 192.168.1.1

expect "password:"

send "ispass\r"

interact