Сплит MySQL новой строкой

Question

В моем 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]

Answer 1

Команда 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"
}