Aştepta

 # Să presupunem că $ remote_server, $ my_user_id, $ my_password și $ my_command sunt citite anterior
# în scenariu.
# Deschideți o sesiune telnet pe un server la distanță, trimiteți utilizator și parolă, executați o comandă.

spawn telnet $ remote_server
așteptați „nume de utilizator:”
# Trimiteți numele de utilizator
trimiteți „$ my_user_id \ r”
# Așteptați promptul, în unele cazuri trimiteți parola sau comandă
# înainte ca promptul să poată provoca probleme.
așteptați „parolă:”
# Trimiteți parola și așteptați din nou solicitarea
trimiteți „$ my_password \ r”
așteptați „%”
# Trimiteți comanda
trimiteți „$ my_command \ r”
așteptați „%”
# Salvați ieșirea comenzii în variabila „rezultat”
# Această variabilă poate fi vizualizată mai târziu sau salvată în fișier
setează rezultatele $ expect_out ( tampon )
# Trimiteți comanda de deconectare și așteptați eof
trimite "exit \ r"
așteptați eof

 #! / usr / local / bin / expect -f
# `- introduceți poziția de așteptare aici
# pentru a afla locația expect, executați „care se așteaptă” pe terminal

# Procedura de conectare.
# Returnează 0 dacă are succes, 1 altfel.

proc connect { passw } {
  așteptați {
    „Parolă:” {
      trimiteți „$ passw \ r”
        așteptați {
          „sftp *” {
            returnează 0
          }
        }
    }
  }
  # expirat
  retur 1
}

# Citiți parametrii dați pe linia de comandă
set user [ lindex $ argv 0 ]
set passw [ lindex $ argv 1 ]
set host [ lindex $ argv 2 ]
setați locația [ lindex $ argv 3 ]
set file1 [ lindex $ argv 4 ]
set file2 [ lindex $ argv 5 ]

# descomentând următoarele rânduri imprimați un CV al parametrilor de intrare
#puts "Date argument: \ n";
#puts "utilizator: $ utilizator";
#puts "passw: $ passw";
#puts "gazdă: $ gazdă";
#puts "locație: $ locație";
#puts "file1: $ file1";
#puts "fișier2: $ fișier2";
 
# Verificați dacă toți parametrii au fost introduși.
dacă { $ utilizator == "" || $ passw == "" || $ host == "" || $ locație == "" || $ file1 == "" || $ file2 == "" } {
  pune "Utilizare: <utilizator> <passw> <host> <location> <file1 to send> <file2 to send> \ n"
  ieșirea 1
}
 
# Conectați-vă la gazdă
spawn sftp $ user @ $ host

# Executați procedura de „conectare”
set rez [ connect $ passw ]

# Dacă parola a fost trimisă cu succes, trimiteți fișierul și terminați scriptul
dacă { $ rez == 0 } {
  trimiteți „locația cd $ \ r”
  set timeout - 1
  trimiteți "puneți $ file2 \ r"
  trimiteți „puneți $ file1 \ r”
  trimite "ls -l \ r"
  trimite "ieși \ r"
  așteptați eof
  ieșire 0
}

# Dacă trimiterea parolei a dat o eroare, tipăriți un mesaj de eroare și ieșiți.
pune "\ nEroare la conectarea la server: $ gazdă, utilizator: $ utilizator și parolă: $ passw! \ n"
ieșirea 1