file-io - TCL中的文件读取、写入和追加

Question

在 TCL 中，如何使用 for 循环或 foreach 循环将不同内容附加到单个文件中？

Answer 1

你是这个意思吗？

set fo [open file a]
foreach different_content {"text 1" "text two" "something else" "some content"} {
  puts $fo $different_content
}
close $fo

您以a(追加)模式打开文件file，并写入文件描述符(示例中的$fo)。

更新:如果您想附加变量内容，则必须将脚本更改为:

set fo [open file a]
foreach different_content [list $data1 $data2 $data3 $data4] {
  puts $fo $different_content
}
close $fo