【tcl/tk】expect实现自动登录

#!/usr/bin/expect

set timeout 30
spawn ssh -p [lindex $argv 0] [lindex $argv 1]@[lindex $argv 2]
expect {
	"*(yes/no)?" {
            send "yes\n"
            expect "assword:"
	    send "[lindex $argv 3]\n"
	}
	"*assword:" {
            send "[lindex $argv 3]\n"
        }
}
interact