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