TCL CSV 引用字符

Question

如何使用 csv 添加引用字符:

% package require csv
0.7.3

% set l [list "21" "Some test" "Some test"]
% ::csv::join $l {,} {"}
21,Some test,Some test

我想要像这样的输出"21","一些测试","一些测试"

Answer 1

csv 包不提供此类引用，除非您欺骗它这样做。

有人肯定会说它应该简单地提供一个选项来做到这一点，但请尝试这样做:

package require struct::list

set l {1 "Some Text" "Some Test"}
set r [join [struct::list map $l {format {"%s"}}] ","]
puts $r