TCL: печать отчета в формате csv с помощью отчета tcllib

Question

Я пытаюсь создать красивый отчет о файле CSV, который содержит:

,column_1, column_2,column_3,column_4
line_1,1,2,3,4
line_2,5,6,7,8
line_3,9,0,1,2
line_4,3,4,5,6

Вот мой код TCL:

#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}

lappend auto_path .../tcllib/

package require csv
package require struct::matrix
package require report


struct::matrix data
set f [open my.csv "r"]
csv::read2matrix $f data , auto

report::defstyle simpletable {} {
data set [split "[string repeat "| " [columns]]|"]
top set [split "[string repeat "+ - " [columns]]+"]
bottom set [top get]
top enable
bottom enable
}

report::report r 5 style simpletable
r printmatrix data

Когда я выполняю это, я получаю:

**report/matrix mismatch in number of columns**

Что я не так сделал?

Спасибо

Answer 1

Когда я тестирую с точно , что вы предоставили (за исключением того, что у меня есть системная копия tcllib; точные версии, которые я тестировал, были Tcl 8.5.2, csv 0.7.3, struct :: matrix 2.0.2, отчет 0.3.1, все из ActiveTcl), затем он работал нормально и выдал такой вывод:

+------+--------+---------+--------+--------+
|      |column_1| column_2|column_3|column_4|
|line_1|1       |2        |3       |4       |
|line_2|5       |6        |7       |8       |
|line_3|9       |0        |1       |2       |
|line_4|3       |4        |5       |6       |
+------+--------+---------+--------+--------+

Все, что я могу думать, это то, что ваши реальные данные должны быть не совсемчто ты думаешьЕсть ли лишняя запятая в конце одной строки ваших данных?