如何在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 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 

Answer 2

沒有與代碼片段多個問題。第一個也是最簡單的錯誤是你沒有打開文件fo。除非是在你還沒有在這裏顯示的代碼做過的工作，你需要在你foreach循環之前一樣

set fo [open test.txt w] 

補充一下。

的第二個問題是，你的代碼會寫這個內容的文件：

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 3

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 
}