tcl编程怎么读取逐行文件内容并按照list输出

可以使用以下代码来读取逐行文件内容并按照list输出：

set file [open "filename.txt" r]
set lines [split [read $file] "\n"]
close $file
puts $lines

这里的`filename.txt`是你要读取的文件名。首先，我们使用`open`命令打开文件，并将其赋值给变量`file`。打开文件的模式为`r`，表示只读。

接下来，我们使用`read`命令读取整个文件内容并将其存储在一个字符串中。然后，我们使用`split`命令将字符串按照换行符`\n`进行分割，将每一行存储在一个list中，并将其赋值给变量`lines`。

最后，我们使用`puts`命令输出list中的所有行。请注意，输出的每一行都会带有一个换行符。如果你不想要这个换行符，可以使用`foreach`命令遍历list并使用`puts -nonewline`命令输出每一行。