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} {
if [正規表現 {.*not found} $buf] {
「$cmd FAILED : not found」と出力する
1を返す
}
if [regexp {.*Permission denied} $buf] {
「$cmd FAILED : アクセス問題が発生しました」と出力します
1を返す
}
return 0
タイムアウトを-1に設定し、タイムアウトを無効化します。デフォルトは10秒です。
# そしてほとんどのファイル転送はそれよりも時間がかかる。私は設定しないことに決めた
# タイムアウト、変更可能です。
タイムアウトを設定 -1

# start sftp
spawn sftp[email protected]

# sftpプロンプトを待機するが、認証プロンプト（
で終わる）が表示された場合 # yes/no セキュリティ問題を報告して終了する。
expect {
“yes/no?” { puts
“nnn間違ったサーバーに接続したか、サーバーが再読み込みされました。”
puts
“このスクリプトを再度実行するには、サーバーキーの検証が必要です。nnn”
exit }
sftp>
}

# テスト用の便利なディレクトリに変更
send "cd sftp_testr"
expect {
eof { goteof "cd sftp_test" }
sftp>
}

#
プロンプトで収集した全文字列を引数にエラーチェックを実行 # sftp>プロンプトも対象。sftpに送信したコマンドも同様。
# checkforerrorsプロシージャが1を返した場合、スクリプトを終了。他の処理も実行可能

if {[checkforerrors $expect_out(buffer) “cd sftp_test”] == 1} { exit }

send "put foor"
expect {
eof { goteof "put foo" }
sftp>
}
if {[checkforerrors $expect_out(buffer) "put foo"] == 1} { exit }

send "get barr"
expect {
eof { goteof "get bar" }
sftp>
}
if {[checkforerrors $expect_out(buffer) "get bar"] == 1} { exit }

send "quitr"
expect eof
puts "script 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> get bar
リモートファイルを統計処理できませんでした: ファイルまたはディレクトリが見つかりません
ファイル "/SysAdmin/Noah_Davids/sftp_test/bar" が見つかりません。
sftp> get bar FAILED : not foundready 10:42:11