TCL中如何使用lrange命令删除列表元素获取指定输出

TCL 的 lrange 命令仅支持提取连续索引范围的列表元素，无法直接跳过中间的 e、f 两个元素，因此可以通过拼接两次 lrange 执行结果的方式实现需求，具体操作如下：

• 如果你使用的是标准TCL列表（元素以空格分隔），执行如下代码：

# 定义原始列表
set list {a b c d e f g h}
# 拼接两次lrange的提取结果
set target_list [concat [lrange $list 0 3] [lrange $list 6 end]]
# 输出验证
puts $target_list

代码说明：

• lrange $list 0 3 提取索引0到3的元素，得到{a b c d}
• lrange $list 6 end 提取索引6到列表末尾的元素，得到{g h}
• concat 命令将两个列表拼接为最终的目标列表
• 如果你原始的内容是逗号分隔的整串字符串，执行如下代码即可直接输出a,b,c,d,g,h：

set raw_str "a,b,c,d,e,f,g,h"
set list [split $raw_str ","]
set target_list [concat [lrange $list 0 3] [lrange $list 6 end]]
puts [join $target_list ","]

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