以前没注意到Tcl/Tk的正则表达式命令regexp还有一个逐行匹配的选项-line(其实是三个-line, -lineanchor和-linestop,第一个是后两者的综合),因此碰到需要在多行内容中匹配某一行的中的某字符(串)是总是不得不用AWK,PERL等其他工具,现在有了-line,直接regexp -line <pattern> <var>就搞定了!