文件内容处理:
获取文件中的某些行,并对其处理:
主要使用 " gets fileid line " 命令,其中 fileid 是文件ID号,这条命令获取文件中的行,并将其赋给变量 line ,第一次执行获取第一行,第二次获取第二行,以此类推……
这个命令的返回值是该行的字符数,到达文件末尾则返回 -1,所以可以用 while { [gets f01 line] >= 0 } 来获取文件中的每一行,
示例脚本如下:
set f01 [open test.tcl r] while { [gets $f01 line ] >= 0 } { #依次获取每一行 if {[regexp pattern $line ]} { #正则匹配 puts stdout $line #输出到 stdout } }
close $f01