1

我必须在 tcl 中编写这段代码，我真的很沮丧，因为这是我第一次使用 tcl。我需要显示如下内容：在此处输入图像描述

我正在使用 tcl/informix，我正在为如何实现上述目标而苦苦挣扎。这是我写的伪代码

    select event_date,attempts_cnt,success_cnt,fail_cnt from cc_web_ppv_counts WHERE 
        event_id='123' 
    {
        get $sd_attempt_cnt
        get $sd_success_cnt
        get $sd_fail_cnt
            get event_date




        select event_date,attempts_cnt,success_cnt,fail_cnt from cc_web_ppv_counts WHERE 
            event_id='125' 
        {
            get $hd_attempt_cnt
            get $hd_success_cnt
            get $hd_fail_cnt

            $total_attempts=$sd_attempt_cnt + $hd_attempt_cnt;
            $total_success=$sd_success_cnt + $hd_success_cnt;
            $total_fail=$total_attempts -$total_success;
            $success_rate=($total_success/$total_attempts)*100;
            $hd_success_rate=($hd_success_cnt/total_success)*100;
            $sd_success_rate=($sd_success_cnt/total_success)*100;
        }
    }

注意对于每个 event_date（例如今天），只有 2 条记录。分别用于 sd 和 hd。因此必须在输出中动态显示日期。

如果有人能指出 tcl 中的一些示例，这些示例可以像上面那样提取数据并显示，我将不胜感激。

4

1 回答 1

1

可能具有适当 ODBC 驱动程序的tclodbc是一种方法。

至于问题的第二部分，答案很大程度上取决于您如何定义“显示”。

于 2012-04-12T23:10:02.220 回答