如何在 tcl 中用换行符剪切和 post？

Question

catch [list exec find /home/gusman/mp3 -name "*$title*" -type f -printf "%f,"] song

我以这种方式切割和划分： regsub -all "," $song "\n" song

post他们这样
putserv "notice $nick :$song"

结果只有post一行
<Botnick>: Title song.mp3

而在搜索文件中有几个歌曲标题

我想 post 像这样：
<Botnick>:1 Title song.mp3
<Botnick>:2 Title song.mp3
<Botnick>:3 Title song.mp3
根据搜索结果的数量。

Answer 1

为什么要打印额外的 , 个字符，然后用换行符替换它们，而不是直接使用换行符？

我猜你还缺少一个 split 和一个 foreach 循环。

这对我有用：

catch [list exec find /home/gusman/mp3 -name "*$title*" -type f] songs
foreach song [split $songs \n] {
    putserv "notice $nick :$song"
}