TCL：列表CONCAT不工作

我想加入以下兩個元素作爲一個單獨的列表試過CONCAT，加盟，lappend等，但它不工作TCL：列表CONCAT不工作

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島ethernet9/7 X.1.Agg-251 ethernet4/29島ethernet9/9 ...}

2013-01-08 Zuckerberg

的問題是不是在這部分代碼。你是否在進入循環時檢查了'$ result2'，'$ list4'和'$ links'？ – potrzebie

你大概的意思做類似

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

2013-01-09 00:44:12

回答