linux运行tcl脚本,TCL/EXPECT自动化测试脚本实例四 --- 批命令执行

在测试过程中，在具体测试某一个功能点时，往往需要为此进行大量的配置。为了简化测试过程，我们可以把所有的配置命令放在一个文本文件中，然后使用测试脚本来执行这些命令。这里讲的脚本，就可以用来执行指定的命令文件。此脚本被上一篇中介绍的test.exp调用。

在测试过程中，在具体测试某一个功能点时，往往需要为此进行大量的配置。为了简化测试过程，我们可以把所有的配置命令放在一个文本文件中，然后使用测试脚本来执行这些命令。这样就不需要再手工进行配置了，费时费力。

基于如上考虑，编写了下面的脚本tCmd.exp。这个脚本被我们前面介绍过的test.exp脚本调用。

# $Id$

# This file is used to execute specific commands list in a file

proc execCmdFile {cmdFile} {

global g_dbgFlag g_prompt

# enable debug

set g_dbgFlag 1

# login

set spawn_id [login $g_devip $g_user $g_passwd]

if {$spawn_id == 0} {

errLog "login $g_devip failed"

return 0

}

# open cmdFile

set cmdFd [open $cmdFile r]

while true {

# get a line

if {![getLine $cmdFd line]} {

dbgLog "reached eof"

break

}

# split the line

set ln [split $line ","]

set cmd [string trim [lindex $ln 0]]

set out [string trim [lindex $ln 1]]

if {$cmd == ""} continue

if {$out == ""} set out $g_prompt

# send cmd line

exp_send "$cmd\n"

dbgLog "send $cmd"

# expect output

dbgLog "expect $out"

expect {

timeout {

errLog "TIMEOUT: while exec \"$cmd\""

continue

}

-ex "$out" {

continue

}

} ;# end expect

}

# close cmdFile

close $cmdFd

}

# if no cmdFile, use default

if {$cmdFile == ""} {

set cmdFile "cmdFile.txt"

}

execCmdFile $cmdFile

有了这个脚本，我们可以使用"./test.exp -cinterface.txt cmd"来执行interface.txt中的命令