TCL脚本重组CSV文件数据

Question

我是TCL脚本的新手。

我的CSV文件中有2列。

示例：我的数据

A 12
D 18
B 33
A 11
D 49

我想使用第1列数据提取2列值。

所需的输出：

A: 12,11
B: 33
D: 18, 49

有人可以帮助我编写TCL脚本以执行此任务吗？ 先感谢您。

Answer 1

这是一个众所周知的问题，TCL的dict lappend正是您需要解决的工具（与csv :: Split从TCLLIB一起进行解析输入数据）。

package require csv

# Read split and collect
set data {}
while {[gets stdin line] >= 0} {
    lassign [csv::split $line] key value; # You might need to configure this
    dict lappend data $key $value
}

# Write out
puts ""; # Blank header line
dict for {key values} $data {
    puts [format "%s: %s" $key [join $values ", "]]
}

以上写为stdin到stdout滤镜。适应与文件一起工作是作为练习。