TCL中含"-"的行执行lsearch命令失败，求解决方案

问题分析 #

1. 列表格式非法：原行中的"sun"- bar不符合Tcl列表语法——引号闭合后直接跟-，无空格分隔，导致lindex等列表命令解析失败，抛出list element in quotes followed by "-" instead of space错误。
2. lsearch参数错误：同时使用-exact和-regexp选项（二者互斥），且参数顺序颠倒（正确语法为lsearch ?选项? 列表 匹配模式）。

解决办法 #

方法1：跳过列表解析，直接提取首个元素 #

由于原行不是合法Tcl列表，改用字符串匹配提取行首的第一个元素：

# 提取行首到第一个空格的内容作为目标元素
regexp {^(\S+)} $line -> first_element

方法2：修复原行的列表格式 #

通过字符串替换将非法格式修正为合法列表结构，之后再使用列表命令：

# 将"sun"- 改为"sun-"（把-包含进引号，消除语法冲突）
set fixed_line [regsub {"([^"]+)-"} $line {"\1-"}]
# 正常提取第一个元素
set first_element [lindex $fixed_line 0]

修正lsearch命令 #

移除互斥选项，调整参数顺序。示例如下：

# 用正则表达式匹配目标元素
set match_result [lsearch -regexp $first_element {mx[0-9]}]
# 若需精确匹配（在目标列表中查找元素）：
# set match_result [lsearch -exact $target_list $first_element]

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