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 [regexp {.*not found} $buf] {.
puts "$cmd FAILED : not foundnnn"
復帰1
}
if [regexp {.*Permission denied} $buf] {.
puts "$cmd FAILED : access problemsnnn"
復帰1
}
還る
}# タイムアウトがないように-1に設定します。デフォルトは10秒です。
# と、ほとんどのファイル転送にはそれよりも時間がかかります。を設定しないことにしました。
# タイムアウトは変更可能です
セットタイムアウト-1

# start sftp
spawn sftp [email protected]

# sftpのプロンプトを待ちますが、認証プロンプトが表示されたら、最後に
# yes/no でセキュリティ問題を報告して終了します。
期待する
"yes/no?"{ puts
"nnn間違ったサーバーに接続されたか、サーバーがリロードされました。"
puts
"このスクリプトを再度実行するには、サーバーキーを検証する必要があります.nnn"
終了 }。
sftp>
}

テストに適したディレクトリに変更します。
send "cd sftp_testr"
期待値 {
eof { goteof "cd sftp_test" }.
sftp>
}

# call check for errors passing it all collected characters up the
# 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}.{ 出口 }。

send "get barr"
expect {
eof { geteof "get bar" }.
sftp>
}
if {[checkforerrors $expect_out(buffer) "get bar"] == 1}.{ 出口 }。

辞令を出す
勘ぐってしまう
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