expect安装及简单实用例子

引用：expect Tcl安装
A. Tcl 安装 

主页: http://www.tcl.tk

下载地址: http://www.tcl.tk/software/tcltk/downloadnow84.tml
CSDN下载地址：http://download.csdn.net/detail/koala002/3853393
1.下载源码包

wget http://nchc.dl.sourceforge.net/sourceforge/tcl/tcl8.4.11-src.tar.gz

wget http://nchc.dl.sourceforge.net/sourceforge/tcl/tk8.4.11-src.tar.gz
2.解压缩源码包

tar xfvz tcl8.4.11-src.tar.gz

tar xfvz tk8.4.11-src.tar.gz
3.安装配置

cd tcl8.4.11

cd unix

./configure --prefix=/usr/tcl --enable-shared

make

make install

安装完毕以后，进入tcl源代码的根目录，把子目录unix下面的tclUnixPort.h copy到子目录generic中。

暂时不要删除tcl源代码，因为expect的安装过程还需要用。
B. expect 安装 (需Tcl的库)

主页: http://expect.nist.gov/
CSDN下载地址：http://download.csdn.net/detail/koala002/3853396
1.下载源码包

wget http://expect.nist.gov/expect.tar.gz
2.解压缩源码包

tar xfvz expect.tar.gz
3.安装配置

cd expect-5.43

./configure --prefix=/usr/expect --with-tcl=/usr/tcl/lib  --with-tclinclude=

/tcl源代码路径/generic
make

make install
简单例子：
#自动登录程序
#!/home/jyq/bin/tcl/bin/expect

#设置IP
set host 219.219.216.76
# 设置用户名
set name jyq
# 设置密码
set password XXX
#spawn一个ssh登录进程
spawn ssh $host -l $name

expect {
"(yes/no)?" {
send "yes\n"
expect "password:"
send "$pasword\n"
}
"password:" {
send "$password\n"
}
}
interact