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