tcl - 如何从csv文件中读取数据

Question

我有一个 csv 文件 Book1.csv。我想读取数据以便在我的脚本中使用它。我无法以行列格式阅读。假设我有一个名为“7-slot”的列并且有数据“1 2 3 4 5”等等。不知道怎么读。从谷歌和stackoverflow搜索但没有得到。

package require csv
package require struct::matrix

# Load the file into a matrix
struct::matrix data
set f [open Book1.csv]
csv::read2matrix $f data , auto
close $f

这段代码我取自stackoverflow onlt。我是 TCL 新手，所以学习这些东西

Answer 1

啊，我认为缺少的是在读取矩阵之前向矩阵添加列。

这个片段：

package require csv
package require struct::matrix

struct::matrix m
m add columns 3
set f [open foo.csv]
csv::read2matrix $f m ,
close $f
puts [m serialize]

为foo.csv包含而产生

1,2,3
"aaa","bbb","ccc"

此打印输出：

2 3 {{1 2 3} {aaa bbb ccc}}

我将其解析为“2 行 3 列的矩阵，然后是表示每个行和列值的列表列表。