使用SFTP自动传输文件

# If we get an end-of-file (eof) it means that the sftp process
# terminated. Report the last command that was sent.
#
proc goteof {cmd} {
puts "sftp connection unexpectedly closed n"
puts "last text received wasn"
puts "<<"
puts $cmd
puts ">>nnn"
exit
}# 这个过程进行正则表达式匹配，寻找关键字符串
在从执行的命令中收集的输出中#。在这种情况下
# 我只是报告错误类型，但也可以做其他事情
#也是。我也只检查了2个错误。还有其他的。你会有
# ＃添加他们，因为你发现他们。
#
proc checkforerrors {buf cmd} {
如果 [regexp {.*not found} $buf] {
把"$cmd FAILED : not foundnnn"
返回1
}
如果 [regexp {.*Permission denied} $buf] {
把"$cmd FAILED : 访问问题nnn"
返回1
}
回0
}# 将超时设置为-1，所以没有超时。默认为10秒
# 而大多数文件传输都需要更长的时间。我决定不设置
#超时，你可以改变它。
设置超时-1

# 启动 sftp
spawn sftp[email protected]

# 等待sftp提示，但如果我们得到一个认证提示，以
# yes/no 报告一个安全问题并退出。
expect {
"是/否？"{ put
"nnWe have connected to the wrong server or the server has been reloaded."
把
"在再次运行这个脚本之前，必须对服务器的密钥进行验证。
退出 }
sftp>
}

# 换到一个方便的目录进行测试
发送 "cd sftp_testr"
预期 {
eof { goteof "cd sftp_test" }
sftp>
}

# 调用检查错误的方法，将所有收集到的字符传上去。
# sftp>提示。也是发送到sftp的命令。如果
# checkforerrors过程返回1，则退出该脚本。同样，你可以
# 做其他事情。
如果 {[checkforerrors $expect_out(buffer) "cd sftp_test"] == 1}{ 退出 }

发送 "把门"。
预期 {
eof { goteof "put foo" }
sftp>
}
如果 {[checkforerrors $expect_out(buffer) "put foo"] == 1}.{ exit }

送出 "获得巴尔"。
预期 {
eof { goteof "get bar" }
sftp>
}
如果 {[checkforerrors $expect_out(buffer) "get bar"] == 1}.{ 退出 }

送"辞行"
期待
把"脚本donenn"

expect sftp3.exp
spawn sftp [email protected]
Connecting to 172.16.1.116...
sftp> cd sftp_test
sftp> put foo
Uploading foo to /SysAdmin/Noah_Davids/sftp_test/foosftp> 获取酒吧
无法统计远程文件。没有这样的文件或目录
未找到文件"/SysAdmin/Noah_Davids/sftp_test/bar"。
sftp> get bar FAILED : not foundready 10:42:11