Arrays TCL:List concat不起作用

我试图将以下两个元素合并为一个列表 尝试了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"

---

对于{set index 0}{$index您可能打算执行以下操作

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

你可能想做类似的事情

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

问题不在代码的这一部分。您是否检查了进入循环时，
$result2
、
$list4
和
$links
是什么？问题不在代码的这一部分。您是否检查了进入循环时，
$result2
、
$list4
和
$links
是什么？