文件内容处理（按行处理）

文件内容处理：

获取文件中的某些行，并对其处理：

主要使用 " 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