Tcl/Tk -- File Operation

# file operation in Tcl/TK

# open file for read/write
#
# open mode:
#
#	r : read only, file should exist.
#	r+: read and writ, file should exist.
#	w : write only,if file exist, clear it, else create a new one.
#	w+: read and write, if file exists, clear it, else create a new one.
#	a : write only, file should sxists, point to the end of file.
#	a+: read and write,point to the end of file, if file not exist, create a new one.

set fileId [open "test.txt" a+]				;# open file for read and write with append mode

puts $fileID "Hello, this is a test line !"	;# write a line to the opened file
flush $fileID								;# flush the buffer to save the msg to file

while {![eof $fileID]} {					;# tell wether the file pointer is in the end of file
	
	gets $fileID $line						;# read a msg from file by line
	puts $line								;# show out the result
}

clsoe $fileID								;# close the fileID