TCL/TK文件操作

读取并打印

proc fileDemo {} {
	set fHandler [open log.txt r]
	while {[eof $fHandler] != 1} {
		gets $fHandler line
		puts $line
	}
}

利用正则表达式提取信息