expect 应用 用于远程交互

window 下软件

方法一：安装ActiveTcl。我安装的是ActiveTcl8.4.15.0.280619-win32-ix86-threaded.exe，它自 带了Expect，dll版本是5.43。这种方式下，你只能通过tcl的脚本来实现你想要的Expect功能，事实上为了使用Expect不得不安装一 些你可能不需要的功能。

方法二：安装expect-5.21r1b1-setup.exe。这个文件我是从http://cit.wta.swin.edu.au/cit /subjects/CITP0021/lilydale/downloads/expect-5.21r1b1-setup.exe下载下来的。安装以 后，将C:/Program Files/Expect-5.21/bin加入你的搜索路径后就可以在命令行下使用Expect。对于不需要完整的Tcl的功能的用户很适用，因为安装 占用很少。

 

 

例子：

#!/usr/bin/expect
set aimpath1 "/data/app/www/mffy/gm.mf.kunlun.com"
set aim [lindex $argv 0]
set file [lindex $argv 1]
set upfile [lindex $argv 2]
if {$argc < 3} {
    puts "Usage : check gmupload syntax"
}
if {$aim == "kl" } {
    set PATH $aimpath1[lindex $upfile]
    spawn scp -P 7710 -r $file [email protected]:$PATH
        expect "password:"
        send "mimatongyijiuhaoji/r"
        interact
} elseif {$aim == "hwkl"} {
    puts '111'   
}