Easwy的专栏

本博客保留了搬迁到易水博客之前的旧文章,不再更新,留言请到易水博客:http://easwy.com/blog/...

TCL/EXPECT自动化测试脚本实例五 --- 由文件中读取一行

代码见下,比较简单,就不再分析了。调用实例见前面的文章。

#************************************************
# get a line from file, skip blank lines and
# comment lines, return the reading line in
# parameter 'line'.
#
# @PARAMS
# fd     - file fd
# line   - var used to return the line
#
# @RETURN
# return 1 if read successfully, otherwise 0
#************************************************
proc getLine {fd line} {
    upvar $line ln

    # read a line from fd
    while {[set lineLen [gets $fd ln]] >= 0} {
        # blank line
        if { $lineLen == 0 } continue
 
        # trim whitespace
        set ln [string trim $ln]
        if { [string length $ln] == 0 } continue

        # skip comment
        if { [string index $ln 0] == "#" } continue

        # success
        return 1
    }

    return 0
}
阅读更多
个人分类: TCL/expect
上一篇TCL/EXPECT自动化测试脚本实例四 --- 批命令执行
下一篇用TCL编写了一个生成密码字典的小测试程序,共享一下
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭