Posted to tcl by funa at Mon Dec 11 15:41:56 GMT 2017view pretty
#!/usr/bin/expect set timeout -1 spawn ssh -t -o StrictHostKeyChecking=no funabashi@[lindex $argv 0] expect "password" send -- "$env(ABC)\r" send -- "\r" expect ".*" send "arp\r" expect ".*" send "exit\r" interact