tcl读取文件每一行

要在Tcl中读取文件的每一行，你可以使用`read`命令结合`gets`函数。下面是一个例子：

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

在这个例子中，你需要将"filename.txt"替换为你要读取的文件的路径。`open`命令用于打开文件，并使用`r`选项以只读模式打开。`while`循环使用`gets`函数来读取文件的每一行，直到文件末尾。对于每一行，你可以执行一些操作，这里的例子是简单地将其输出到控制台。最后，使用`close`命令关闭文件。