如何设置捕获搜索消息是否为空

Question

bind pub - "!find" pub:cari

proc pub:cari { nick host hand chan text } {
    set judul [lindex $text 0]
    if { $judul == ""} {
        puthelp "notice $nick :ketik !find <penyanyi/artis>"
        return
    } else {
        putquick "notice $nick :being processed $judul"
        catch [list exec find /home/gusman/mp3 -name "*$judul*" -type f -printf "%f\n"] data
        putserv "notice $nick :!putar $data"
        putserv "notice $nick :copy paste di channel !putar $data"
    }
}

putlog "find.tcl"

如果在数据中寻找 它适用于发布到目标。 如果搜索到的数据为空，则不起作用，请指出此脚本是不完整还是错误。

Answer 1

我已经在这条线上找到了解决方案：

object

Answer 2

这样的事情有用吗？

    proc pub:cari { args } {
        lassign $args nick host hand chan text
        ...

通常在TCL中，如果您没有向某个函数传递足够的参数，那么您将收到错误。如果你不知道你的函数将使用多少个参数，你可以命名最后一个参数＆＃34; args＆＃34;，并且任何额外的参数将作为列表放在这个变量中。