我正在尝试在字典或数组格式上创建类似关键字 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 ×1