打印在TCL

Question

值逐一我在TCL以下代碼..

proc GetPPVSummary {} { 
    global LIBRARY DB_MACHINE ALT_MACHINE 

    set query "SELECT first 2 * from test ORDER by ppv_id DESC" 
    set result [mtlrequest $LIBRARY DbSelect "test@$ALT_MACHINE|$query"] 

    return $result 
} 

set return_data [GetPPVSummary] 
puts $return_data 

上述返回是這樣的：

{{753 38 {2000年4月10日00 ：00：00} {2000年4月11日00:00:00} 3 HQAWR 56897 PPV乙Event_04292012_teaser {} Event_04292012_teaser The_World_Doesnt_Care {$ 99.00} {$ 0.01}}

如何通過一個打印只值一個在TCL？

行，所以我嘗試了，現在下面：

foreach record $return_data { 
    set event_date [lindex $record 1] 
    set attempts_cnt [lindex $record 2] 
    set success_cnt [lindex $record 3] 
    set fail_cnt [lindex $record 4] 
} 


puts $event_date 

現在，我得到的全整行，而不是第一或第二值..

Answer 1

假設$ return_data是列表的列表，你想

foreach record $return_data { 
    foreach item $record { 
     puts $item 
    } 
} 

Answer 2

最有可能mtlrequest返回一個列表，所以如果「如何在tcl中只打印一個值？「你要問「我怎麼提取成員從該值」，有幾個可能的答案：

• lindex可以使用其數字索引來提取列表中的一員，像set x [lindex $return_data 5]將設置變量「x 「到價值HQAWR。
• lassign（TCL 8.5+）可用於列表值的元素分配到一組變量，像lassign $return_data a b c d ...

注意那些{ S和}沒有特殊的意義—他們的結果Tcl將列表值轉換爲字符串（您通過使用puts來要求它）：請參閱this和this部分the tutorial的解釋。

強烈建議您自己完成整個教程，否則您會對每一個小問題猛然一擊。 Tcl比第一眼看起來更簡單，所以請花點時間掌握它的基本知識。