Jak poczekać na zakończenie procesu przy użyciu tcl-expect

Question

Piszę skrypt przy użyciu oczekiwać, w którym muszę rlogin do jakiegoś hosta & po tym muszę wysłać kilka poleceń. Teraz chcę wyjść z tego hosta i ponownie zalogować się do innego hosta i wysłać kilka poleceń. Ale uruchomienie mojego skryptu nie czeka na pierwszego hosta, aby zakończyć swoje zadania i zakończyć, zamiast tego wysyła inne polecenia pomiędzy poprzednim procesem. Jak mogę to osiągnąć, oczekując instrukcji?

Przykładowy kod jest następujący:

#!/usr/local/bin/expect -f 

spawn rlogin host1 
expect "%" 
send "source xyz.csh\r" 
send "exit\r" 
expect "%" 

spawn rlogin host2 
some set of commands 

Answer 1

można opracować na

Próbowałem tego i zadziałało.

spawn ssh host1 
expect ":" 
send pwd1 
expect "%" 
send "echo hi\r" 
expect "%" 
send "exit\r" 
expect eof 
spawn ssh host2  
expect ":" 
send pwd2 

Answer 2

jesteś zapominając "Hit enter". Po wysłaniu wyjście, tak aby czekać na proces do końca os expect eof: „nadal skrypt wysyłania resztę poleceń pomiędzy poprzednim procesie”

send "source xyz.csh\r" 
expect "%" 
send "exit\r" 
expect eof 

Answer 3

Spróbuj konstrukt kiedy command jest czasochłonne:

. . . 
send "command\r" 

expect { 
    timeout { 
     puts "Running..." 
     exp_continue 
    } 
    "%PROMPT%" { 
     puts "Finished." 
    } 
} 

send "next command\r" 
. . . 

Na timeout będziesz continuosly czeka z poleceniem exp_continue dla %PROMPT%.

Answer 4

Znalazłem ten post, gdy wpadłem w problem z wyścigiem: czasami skrypt został zakończony jako , oczekiwany, a innym razem nie. Dodanie catch oświadczenie do skryptu zapewnione pożądany efekt za każdym razem:

[...] 
expect eof 
catch wait result