tcl 循环读取文件脚本

可以使用 Tcl 的 `while` 循环和 `gets` 命令来实现循环读取文件的脚本。具体代码如下：

set filename "example.txt"   ;# 文件名
set fp [open $filename r]    ;# 打开文件，可读模式
while {[gets $fp line] != -1} {
    # 处理每一行数据，这里可以根据具体需求进行操作
    puts $line   ;# 输出每一行数据
}
close $fp   ;# 关闭文件

在上面的代码中，首先定义了要读取的文件名，然后使用 `open` 命令打开该文件，模式为可读模式（`r`）。接着使用 `while` 循环和 `gets` 命令来逐行读取文件内容，直到读取完所有行为止。在循环中，可以对每一行数据进行处理，例如输出到控制台或者存储到变量中。最后使用 `close` 命令关闭文件。