TCL/TK文件操作

讀取並打印

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

利用正則表達式提取信息