有时候，当我孤独地坐着等待生命大门关闭时，一种与世隔绝的感觉就会像冷雾一样笼罩着我。远处有光明、音乐和友谊，但我进不去，命运之神无情地挡住了大门。我真想义正词严地提出抗议，因为我的心仍然充满了热情。但是那些酸楚而无益的话语流溢在唇边，欲言又止，犹如泪水往肚里流，沉默浸透了我的灵魂。然后，希望之神微笑着走来对我轻轻耳语说：“忘我就是快乐。”因而我要把别人眼睛所看见的光明当作我的太阳，别人耳朵所听见的音乐当作我的乐曲，别人嘴角的微笑当作我的快乐。
TCL/EXPECT自动化测试脚本实例五 --- 由文件中读取一行
上一篇 /
下一篇 2009-07-27 09:56:37
/ 个人分类：C语言
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
}
|
|
|
收藏
举报
TAG:
