expect安装及简单实用例子

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

简单例子：

#自动登录程序

[cpp]  view plain  copy

1. 1 #!/usr/bin/expect
     2 set host 192.168.201.132
     3 # 设置用户名
     4 set name pais
     5 # 设置密码
     6 set password xxx
     7 #spawn一个ssh登录进程
     8 spawn ssh $host -l $name
     9
    10   expect {
    11       "(yes/no)?" {
    12               send "yes\n"
    13               expect "password:"
    14               send "$password\n"
    15               }
    16       "password:" {
    17               send "$password\n"
    18               }
    19       }
    20 interact
   ~