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