帮忙看下这个tcl的非贪婪匹配为何还是匹配最多

weichanghe2000

大家好，我有以下tcl代码，
本来是希望用 .*? 的非贪婪匹配，匹配最少，也就是整个匹配的应该是 grp2 : user5, user6, userme
但是结果却是 grp2 : user5, user6, userme, user7, user1, userme。

请帮忙看下哪里写错了吗？
.*?  看起来没有做到非贪婪。

1. set cur_line  {grp2 : user5, user6, userme, user7, user1, userme, user2}
   
2. if { [ regexp {(^\w+\d)\s+:.*?userme} $cur_line  total_match  grp_num ] } {
   
3.       puts "curr   line: $cur_line"
   
4.       puts "total match: $total_match"
   
5.       puts "        num: $grp_num"
   
6. }

复制代码