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

原创 2006年05月30日 10:31:00
代码见下,比较简单,就不再分析了。调用实例见前面的文章。

#************************************************
# 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脚本语言

TCL 是一种 脚本语言。最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL。 由John Ousterhout创建。 TC...

用Python开发自动化测试脚本

用Python开发自动化测试脚本 通常对于一个稍具规模的系统,一些新的改动势必会带来一些额外的功能回归测试工作,而这个工作是非常繁杂的,人肉的方式一次又一次的重复将会非常的枯燥乏味。     ...

TCL 自动化测试

  • 2011-11-23 15:01
  • 4.92MB
  • 下载

基于selenium的自动化测试脚本编写-python

基于selenium的自动化测试脚本编写-python

线索创建自动化测试脚本

  • 2015-01-14 11:26
  • 4.32MB
  • 下载

自动化测试脚本

自动化测试时遇到的脚本录制问题及解决方法

自动化测试工具TestWriter使用时遇到的脚本录制问题及解决方法如下,欢迎大家一起沟通交流~
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)