SQLite多结果查询问题：Tcl脚本仅输出首条结果如何解决？

我来帮你搞定这个问题！你的脚本现在只输出第一条查询结果，核心原因是你只处理了SQLite返回结果的前四个元素，没有循环遍历所有匹配的行。

先给你理清楚：data eval执行查询后返回的是扁平化的列表，所有行的字段会依次拼接在一起（格式类似id1 source1 path1 name1 id2 source2 path2 name2 ...），你之前的代码只提取了前四个值，自然只能拿到第一行数据。

下面是修改后的完整脚本，能输出所有匹配结果：

bind pub "-|-" !sqlpre pub:test:sqlpre
proc pub:test:sqlpre { nick host handle channel arg } {
    set searchname [lindex [split $arg] 0]
    sqlite3 data /home/local/test.db
    set result [data eval {SELECT * FROM folders WHERE name LIKE $searchname}]
    if {[llength $result] == 0} {
        putnow "PRIVMSG $channel :Nothing found"
        return 0
    } else {
        # 循环遍历结果，每次取4个元素对应一行的四个字段
        foreach {id source path name} $result {
            putnow "PRIVMSG $channel :$id $source $path $name"
        }
    }
    # 关闭数据库连接，避免资源泄漏（推荐添加）
    data close
}

关键修改点说明： #

• 用foreach {id source path name} $result遍历结果：Tcl的foreach支持多变量赋值，每次循环会从$result里依次取出4个值，分别对应一行数据的四个字段，完美适配你的查询结果结构。
• 将输出逻辑放到循环内部，这样每一条匹配的数据都会被单独发送到频道。
• 额外添加了data close关闭数据库连接，这是长期运行脚本的好习惯，能避免资源泄漏问题。

修改后再执行查询，就能得到你预期的5条结果啦！

内容的提问来源于stack exchange，提问作者kuck