学步园

引用：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