Tcl 按新行拆分MySQL

我的tcl脚本中有一个mysql select qry，这是垂直的。 查询中有大约30个问题，包含3-6个字母。 我想在80个字符后将其拆分为一行

set sql_network "SELECT `grp` FROM `name` WHERE `network` LIKE '$network'"
set result_network [mysqlsel $db_handle $sql_network -list]
putquick "PRIVMSG $channel :Results: \002$result_network\002"

我已经测试过了，但不起作用。我怀疑它指的是单个的短词

set length [::textutil::adjust $result_network -length 80 -strictlength true]

---

textutil:：adjust

命令返回调整后的文本。在发送之前，您需要做更多的工作：

set LINE_LENGTH 80

set sql_network "SELECT `grp` FROM `name` WHERE `network` LIKE '$network'"
set result_network [mysqlsel $db_handle $sql_network -list]

set text [::textutil::adjust $result_network -length $LINE_LENGTH -strictlength true]
foreach line [split $text "\n"] {
    putquick "PRIVMSG $channel :Results: \002$line\002"
}

---

您知道您的查询包含一个潜在的SQL注入攻击漏洞吗？不，为什么和谁？问题是，如果有人可以将

网络

设置为字符串

，以及一些邪恶的东西和“=”

，那么他们可能会运行各种麻烦的事情。唉，据我所知，mysqltcl包对此没有很好的缓解措施……因此，正确的修复方法可能是切换到tdbc:：mysql，但它有一个不同的API，因此它可能是一个侵入性修复。我将检查这一点，了解更多信息