Shulou(Shulou.com)06/01 Report--

This article introduces the relevant knowledge of "the basic usage of expect". Many people will encounter such a dilemma in the operation of actual cases, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!

The following is a script that can be used. In this interactive application, it is often necessary to use the sleep function, which can be more friendly to the interface of the output and may reduce the occurrence of errors as much as possible.

With regard to escape characters, there is a part on the Internet. In this case, the arrival-sign needs to be escaped, and the escape is escaped with two\.

\ need to escape to\

} needs to be escaped to\}

[needs to be escaped to\ [

$needs to be escaped to\ $

`need to be escaped to\ `

"need to be escaped to\"

Output masking and display can be achieved with log_user 0 or 1

Log_file test.log # record the log. Additional

Expect follows the tcl syntax. This is a standard. You can refer to study when you have time.

#! / usr/bin/expect-f

Set timeout-subscription never times out

Set deviceType [lindex $argv 0]

Set writesize [lindex $argv 1] # sets the input variable

Set I 0 # set variable

Log_file test.log # record the log.

# log_file-noappend rtime_md_test_$ {stationNum} _ [clock format $currenttime-format% m%d%H] .log

Spawn / home/redhat/Downloads/Mitsubishi/Latest/Driver/Sample/md_test

Expect {

"menu No" {exp_send "1\ r"; exp_continue}

"ChanelNo" {exp_send "151\ r"}

}

Expect {

"mode =" {exp_send "\\-1\ r"} # it was rather stupid here, which made me look into it for a long time, and finally tried it out.

}

While {$i$. / tclfor.test

The way if is written

If {$sync_flag = = "true"} {

Puts "Sync start at [clock format [clock seconds]]"

Catch {eval exec ${TOOL_HOME} / bin/$ {sync_cmd} ${sync_parm}} output

Puts $output

If {$output eq "SYNC complete!"} {

Puts "SYNC complete!"

} else {

Puts "SYNC error!"

Exit 1

}

Puts "Sync end at [clock format [clock seconds]]"

}

Example of ping

Set p_loop 5

While {$p_loop} {

Send_user "\ nStpe 1 Ping to server..."

Set timeout 60

Send "ping 10.1.1.1-c5\ r"

Expect {

"64 bytes" {

Send_user "ok"

Set p_loop 0

}

Timeout {

Addition and subtraction in set p_loop [expr $p_loop-1] # expect

Send_user "failed.\ n"

}

Eof {

Send_user "ping 10.1.1.1-c5 FAIL\ n"

Exit 1

}

}

Example of expect reading a file

#! / usr/bin/expect--

# http://scmbob.org/counting_file_lines.html

# open a file

Set fd [open "/ home/xiabao/myfile.txt" r]

Set number 0

# read each line

While {[gets $fd line] > = 0} {incr number}

Puts "Number of lines: $number"

Close $fd

This is the end of the introduction to the basic usage of expect. Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.