tcl读取文件每行

在Tcl中，可以使用`gets`命令按行读取文件内容。具体实现方式如下：

set file [open "filename.txt" r]
while {[gets $file line] != -1} {
    puts $line
}
close $file

其中，`filename.txt`是要读取的文件名，`r`表示以只读方式打开文件。在`while`循环中，每次使用`gets`命令读取一行内容，并将其存储在变量`line`中，直到读取完整个文件。最后，使用`close`命令关闭文件。