sqlite - 在 Tcl 列表中将元素用单引号括起来以进行 sqlite 插入

Question

我正在尝试为 SQLite 插入格式化字符串，因此我们需要根据字符串类型将字符串列表用单引号括起来

所以如果我有这样的 list

set list1 [list a b 1]

我如何轻松地将其转换为一个列表，其中每个字符串元素都是单引号但数字不是这样的

'a' 'b' 1

是否有一些字符串格式化命令可以简单地完成此操作？

Answer 1

我不确定你是否真的需要这个引用。 tcl 中的 Sqlite 接口(interface)非常灵活。如果您详细描述您的主要任务，您可以获得更多有用的建议。

但我可以直接回答你的问题。这里是。

set list1 [list a b 1 2 c]
set list_quoted [lmap a $list1 {
                            if {[string is integer -strict $a]} {
                              set a
                            } else {
                              subst {'$a'}
                            }
                          }]