TCL：列表连接不起作用

Question

我正在尝试将以下两个元素作为单个列表加入 尝试过concat，join，lappend等但是它没有工作

1134-1215 { W.1.Agg-251 ethernet4/28 island ethernet9/7}

我需要输出（链接）列表，其第一个元素是1134，第二个元素是W.1.Agg-251等

 for {set index 0 } { $index <=328 } {incr index} {
     lappend links   [lindex $result2 $index] [lindex $list4 $index]
 }

 puts "===>$links"

其中结果2是{1134-1150 1151-1600 ..}之类的列表 和list4是一个像{W.1.Agg-251 ethernet4 / 28 island ethernet9 / 7 X.1.Agg-251 ethernet4 / 29 island ethernet9 / 9 ...}的列表

Answer 1

你可能想要做类似

的事情

set links [concat $links [lindex $result2 $index] [lindex $list4 $index]]