regexp -line逐行匹配

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