Shell中使用Expect Here Document

在使用Shell寫程序時，有時不得不面對交互的問題——可惜shell往往無法自動完成交互。如果交互的內容很多，自然是直接應用Expect腳本比較方便；如果交互的內容很少，而且考慮到Shell的易用性，在Shell腳本中創建一個Expect 的Here Document更加方便靈活。

如下例所示，Expect Here Document可以直接運行並將運行結果賦給KSH變量rcs_stat。

1. #!/bin/ksh
3. autoload formatAPnum
5. # Set the lab name, COOLLAB
6. . $COOLXDIR/.netlabs
7. # Get the RCS cell list
8. set -A RCSs
9. typeset -i nx=0
10. cat $COOLXDIR/.coolcell2dcs | while read cell
11. do
12. if [[ "$cell" = c* ]]
13. then
14. rcs=${cell%%$COOLLAB*}
15. RCSs[$nx]=${rcs#c}
16. nx=$nx+1
17. fi
18. done
20. # Check RCS status
21. typeset -i loopCount=0
22. rcs_cnt=${#RCSs[*]}
23. B_server=$(formatAPnum $BserverAP)
24. while [ "${#RCSs[*]}" != 0 -a $loopCount -lt 720 ] # wait at most 2 hours
25. do
26. loopCount=${loopCount}+1
28. nx=0
29. while [ $nx -lt $rcs_cnt ]
30. do
31. rcs_stat="OOS"
32. rcs_stat=$(
33. expect - <<!
34. log_user 0
35. set timeout 20
36. spawn $COOL_RSH ap$B_server TICLI
37. send "op:cell ${RCSs[$nx]}\r"
38. expect {
39. timeout {puts "OOS\n"}
40. "*DL(S) DOWN" {puts "OOS\n"}
41. "*DL(S) UP" {puts "UP\n"}
42. }
43. !
44. )
46. if [ "$rcs_stat" = "UP" ]
47. then
48. coolprint - "RCS cell ${RCSs[$nx]} is up."
49. unset RCSs[$nx]
50. fi
52. nx=${nx}+1
53. done
55. [ -n "${RCSs[*]}" ] && sleep 10
56. done
58. coolprint - "All RCSs are up."
59. exit 0