Expect

# Proměnné $remote_server, $my_user_id, $my_password a $my_command musí být
# již nastaveny dříve ve skriptu.
# Otevřít spojení telnetem na server, a počkat na výzvu k zadání uživatelského jména
spawn telnet $remote_server
expect "username:"
# Poslat uživatelské jméno a čekat na výzvu na zadání hesla
send "$my_user_id\r"
expect "password:"
# Poslat heslo a čekat na výzvu shellu
send "$my_password\r"
expect "%"
# Poslat požadovaný příkaz a znovu čekat na výzvu shellu
send "$my_command\r"
expect "%"
# Výsledky uložit do proměnné results pro pozdější zobrazení nebo uložení do souboru
set results $expect_out(buffer)
# Ukončit telnetové spojení a čekat na ukončení vstupu
send "exit\r"
expect eof

# Nastavte parametr timeout (prodleva) na vhodnou hodnotu;
# pokud je např. soubor velmi velký a síť pomalá, je třeba
# hodnotu parametru dobře vyladit.
set timeout -1
# Otevřít ftp spojení na server a počkat na výzvu k zadání uživatelského jména
spawn ftp $remote_server
expect "username:"
# Poslat uživatelské jméno a čekat na výzvu na zadání hesla
send "$my_user_id\r"
expect "password:"
# Poslat heslo a čekat na výzvu programu FTP
send "$my_password\r"
expect "ftp>"
# Přepnout to binárního režimu a počkat na výzvu programu FTP
send "bin\r"
expect "ftp>"
# Vypnout vypisování dotazů
send "prompt\r"
expect "ftp>"
# Načíst všechny soubory
send "mget *\r"
expect "ftp>"
# Ukončit FTP spojení a čekat na ukončení vstupu
send "bye\r"
expect eof

#!/usr/bin/env expect -f

# procedura pro připojení; výsledek je 0 při úspěchu, 1 jinak
proc connect {passw} {
  expect {
    "Password:" {
      send "$passw\r"
        expect {
          "sftp*" {
            return 0
          }
        }
    }
  }
  # timed out
  return 1
}

# načti vstupní parametry
set user [lindex $argv 0]
set passw [lindex $argv 1]
set host [lindex $argv 2]
set location [lindex $argv 3]
set file1 [lindex $argv 4]
set file2 [lindex $argv 5]

#puts "Argument data:\n";
#puts "user: $user";
#puts "passw: $passw";
#puts "host: $host";
#puts "location: $location";
#puts "file1: $file1";
#puts "file2: $file2";

# kontrola, jestli máme všechno
if { $user == "" || $passw == "" || $host == "" || $location == "" || $file1 == "" || $file2 == "" } {
  puts "Usage: <user> <passw> <host> <location> <file1 to send> <file2 to send>\n"
  exit 1
}

#sftp to specified host and send the files
spawn sftp $user@$host

set rez [connect $passw]
if { $rez == 0 } {
  send "cd $location\r"
  set timeout -1
  send "put $file2\r"
  send "put $file1\r"
  send "ls -l\r"
  send "quit\r"
  expect eof
  exit 0
}
puts "\nError connecting to server: $host, user: $user and password: $passw!\n"
exit 1

stty -echo
send_user -- "Enter Password: "
expect_user -re "(.*)\n"
send_user "\n"
stty echo
set PASS $expect_out(1,string)

# timeout is a předdefinovaná proměnná v expectu nastavená na 10 sec
# spawn_id je další implicitně používaná proměnná v expectu.
set timeout 60
spawn ssh $user@machine
while {1} {
  expect {

    eof                          {break}
    "The authenticity of host"   {send "yes\r"}
    "password:"                  {send "$password\r"}
    "*\]"                        {send "exit\r"}
  }
}
wait
# Je vhodné zavřít spawn_id handle vytvořené příkazem spawn:
close $spawn_id