小编San*_* D.的帖子

在TCL SCRIPT中,如何添加字典或数组

我正在尝试在字典或数组格式上创建类似关键字 start_number last_number 的输出格式。在我的代码中,我使用了字典,代码是:

set keyword_numbers {}
set previous_keyword ""
set last_no 0
foreach item $data {

    regexp {(\w+)\[(\d+)\]} $item -> keyword number
    set new_keyword "$keyword $number"
    puts $keyword
    set key_start_end_data [dict create ]
    if {$keyword == $previous_keyword} {
        if { $number > $last_no } {
            set last_no $number
        } else {
            set last_no $number
        }
        dict lappend key_start_end_data $keyword_data bit_end $last_no
        
    } else {
        set new_keyword $keyword
        set start_no $number
        set keyword_data [lindex $new_keyword 1]
        dict lappend …
Run Code Online (Sandbox Code Playgroud)

tcl

3
推荐指数
1
解决办法
456
查看次数

标签 统计

tcl ×1