Tcl列表元素匹配筛选问题：lsearch正则匹配失效求助

核心思路 #

lsearch -glob会将部分字符（如下划线、连续数字组合）误识别为通配符规则，导致匹配失效。改用正则表达式时，需将列表b中的元素当作纯字面文本处理（规避正则特殊字符干扰），筛选出列表a中不包含b内任何子串的元素。

具体实现代码 #

set a {Gyr_prep.pdb Gyr_HECH_243_1_prep.pdb Gyr_DRG_prep.pdb Gyr_ATH10_prep.pdb}
set b {Gyr HECH_243_1 DRG}

# 将b中元素转为正则字面量，拼接成备选匹配规则
set patterns [list]
foreach item $b {
    lappend patterns "\Q$item\E" ;# \Q\E包裹内容，强制作为纯文本匹配
}
set regex_rule [join $patterns "|"]

# 遍历a，收集不匹配任何规则的元素
set result [list]
foreach elem $a {
    if {![regexp $regex_rule $elem]} {
        lappend result $elem
    }
}

# 输出结果
puts $result

代码说明 #

• \Q和\E是Tcl正则的专用语法，包裹的内容会被强制当作纯文本解析，避免下划线、数字等被误判为正则特殊符号。
• 将b的元素拼接为\QGyr\E|\QHECH_243_1\E|\QDRG\E形式，实现“匹配任意一个子串”的逻辑。
• 遍历a的每个元素，通过!regexp判断是否不包含b中的任何子串，符合条件的元素存入结果列表。

运行结果 #

执行代码后输出：

Gyr_ATH10_prep.pdb

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