tcltk实时读写文件【创建log-debug】

使用puts chan输出到文件后，默认情况下，当close chan的时候的在对文件进行读写，需要实时显示文件内容的时候，需要使用flush命名进行操作，清空buffer。

示例如下：

set filePath f:/HELP/TCL/Demo/fileWrite/fileWrite.log
set chan [open $filePath a]
for {set i 0} {$i < 100} {incr i} {
	set timestamp [clock format [clock seconds]]
	puts $chan "$timestamp - Hello, World!"
	flush $chan
	after 10
	}

close $chan