读取并打印 proc fileDemo {} { set fHandler [open log.txt r] while {[eof $fHandler] != 1} { gets $fHandler line puts $line } } 利用正则表达式提取信息