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 root@10.4.0.253:$PATH
expect "password:"
send "mimatongyijiuhaoji/r"
interact
} elseif {$aim == "hwkl"} {
puts '111'
}