如何在TCL中将不同的变量值写入文件中

Question

如何使用 foreach 循环在 TCL 中写入不同的变量值。
情况是这样的：

set data1 "This is Data1 Value\n"
set data2  "This is Data2 Value"
set data3  "\nThis is Data3 Value\n"

foreach different_content {data1 data2 data3} {

  puts $fo $different_content
}
close $fo
}  

但是它不起作用。

Answer 1

代码片段存在多个问题。第一个也是最简单的错误是您没有在任何地方打开文件 fo。除非在此处未显示的代码中的其他位置完成此操作，否则您需要

set fo [open test.txt w]

在 foreach 循环之前添加类似的内容。

第二个问题是您的代码要将以下内容写入文件：

data1
data2
data3

但您可能打算让它写入以下内容：

This is Data1 Value

This is Data2 Value

This is Data3 Value

这里的错误更加微妙。您的循环正在执行的操作是将 different_content 设置为每个感兴趣的变量的 名称，但您需要这些变量的值。本质上，您需要双重取消引用 different_content 变量。在变量名称的开头添加 $ 可提供一级取消引用。不幸的是，对于 Tcl，你不能仅仅在前面加上另一个 $ 来获得第二级。但您可以使用set命令。毕竟，$ 只是 set 的语法糖：$foo 与 [set foo] 相同。因此，我相信您需要按如下方式重写循环体：

puts $fo [set $different_content]

因此，将它们放在一起：

set data1 "This is Data1 Value\n"
set data2  "This is Data2 Value"
set data3  "\nThis is Data3 Value\n"

set fo [open test.txt w]
foreach different_content {data1 data2 data3} {
    puts $fo [set $different_content]
}
close $fo

Answer 2

Eric 的回答很好，但是还有另外两种方法可以编写 foreach 循环：

方法 1（之前读取变量）：

foreach different_content [list $data1 $data2 $data3] {
    puts $fo $different_content
}

方法 2（使用 upvar 0 为变量创建命名别名）：

foreach different_var {data1 data2 data3} {
    upvar 0 $different_var different_content
    puts $fo $different_content
}

Answer 3

您需要打开您引用为 $fo 但实际上尚未打开的文件句柄：

set data1 "This is Data1 Value\n"
set data2  "This is Data2 Value"
set data3  "\nThis is Data3 Value\n"

set fo [open 'test.txt']

foreach different_content {data1 data2 data3} {
  puts $fo $different_content
}

close $fo