如何使用TCL的regexp命令获取多匹配结果并提取双引号内内容

问题原因 #

你原来的写法regexp -all -inline {"(.*)"} $line不符合预期，核心是正则中*是贪婪匹配规则：会尽可能匹配最长的符合规则的字符串，因此会从第一个"一直匹配到整行最后一个"，中间的所有内容都会被包含进去，无法拆分出多个独立的引号包裹内容。

正确实现 #

有两种常用的写法可以实现需求：

写法1：使用排除型字符集（更高效稳定） #

直接匹配双引号中间「所有不是双引号的字符」，从根源上避免跨引号匹配的问题：

# 提取所有双引号包裹的内容
set quoted_contents [lmap {match capture} [regexp -all -inline {"([^"]*)"} $line] {set capture}]

执行后$quoted_contents的值就是{aaa aaa:ccc}，符合预期。

写法2：使用非贪婪匹配 #

在*后加?开启非贪婪匹配，让正则尽可能短的匹配符合规则的内容：

set quoted_contents [lmap {match capture} [regexp -all -inline {"(.*?)"} $line] {set capture}]

参数解释 #

• -all：返回所有匹配结果，而非仅第一个
• -inline：将匹配结果以列表形式返回，列表按「完整匹配串+第一个捕获组+第二个捕获组...」的顺序循环排列
• lmap {match capture} ... {set capture}：遍历返回的结果列表，只保留捕获组里的内容（即双引号内部的内容），过滤掉包含引号的完整匹配串。

内容的提问来源于stack exchange，提问作者Arteezy