OpenForum RSS: script �� expect'e

script �� expect'e (nastr)

Mon, 07 May 2012 11:14:24 GMT

�� 2 ��:
1) �� expect �� shell?
2) �� expect:
expect $mng { send "ifconfig|awk '{if(index($0,"inet addr:192")){print substr($2,6)}'\r" }
�� :
mpumng@ATCA-11:~$ extra characters after close-quote
while executing
"send "ifconfig|awk '{if(index($0,"inet addr:192")){print substr($2,6)}'\r" "
invoked from within
"expect $mng { send "ifconfig|awk '{if(index($0,"inet addr:192")){print substr($2,6)}'\r" }"
(file "./test.tcl" line 41)

�� awk, �� - |
�� , �� .

�� ! �� expect'�� :-(

script �� expect'e (nastr)

Mon, 07 May 2012 06:36:35 GMT

�� :
set active_mpu_board "192.168.1.2"

�� , �� -�� shell'�� expect, �� ?
�� :
set active_mpu_mng $expect_out(buffer)
expect $mng{ send "BASH COMMAND\r" }

expect $mng{ send "tmp=`BASH COMMAND`\r" }
set active_mpu_board [ $tmp $argv 0 ]

catch { set active_mpu_board $(send "BASH COMMAND\r") }

�� :-(

script �� expect'e (anonymous)

Fri, 04 May 2012 14:10:21 GMT

>[�� ]
> expect "$mng" { send ".........\r" }
> set active_lc_mng $expect_out(buffer)
> expect "$mng" { send ".........\r" }
> set active_lc_board $expect_out(buffer)
> expect "$mng" { send ".........\r" }
> expect "$mng" { send "exit\r" }
> expect "$login" { send "exit\r" }
> puts "\nactive_mpu_board=$active_mpu_board\nactive_lc_board=$active_lc_board\nactive_mpu_mng=$active_mpu_mng\nactive_lc_mng=$active_lc_mng\n"
> #1!�� su, �� ģ�!
> #2!� �� , �� !

�� -�� , � �� , �� ...