在 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-04-10 00:00:00} {2000-04-11 00:00:00} 3 HQAWR 56897 PPV B Event_04292012_teaser {} Event_04292012_teaser The_World_Doesnt_Care {$99.00} {$0.01}}

p>

如何在 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 比第一眼看上去要简单得多，所以请花点时间掌握它的基础知识。