Я хотел автоматизировать ssh логины. После некоторого исследования казалось, что tcl / Ожидает, что маршрут был.
Тем не менее, моя проблема в том, что, когда Interactive захватывает мой терминал, все работает не так, как ожидалось (игра слов не предназначена).
Например, если я изменяю размер терминала, он не "берет". Кроме того, иногда взаимодействие не реагирует, а иногда просто зависает без причины. Я включил свой код ниже. Мой вопрос по коду: я что-то упустил?
Кроме того, есть ли лучший способ сделать это (с другим языком сценариев?) Мне нужно, чтобы терминал был очень отзывчивым, и ничем не отличается от того, если бы я набрал ssh вручную на консоли.
proc Login {username server password} {
set prompt "(%|>|\#|\\\$) $"
spawn /usr/bin/ssh $username@$server
expect {
-re "Are you sure you want to continue connecting (yes/no)?" {
exp_send "yes\r"
exp_continue
#continue to match statements within this expect {}
}
-nocase "password: " {
exp_send "$password\r"
interact
}
}
}