Страница 1 из 1

Использование переменной в строке и дальнейшая подстановка.

СообщениеДобавлено: 06 янв 2009 18:14
tvrsh
Небольшой скрипт в котором показан пример использования и подстановок переменных.
Ключевым тут является использование команды subst
TCL: [ Скачать ] [ Скрыть ]
        # Указываем тут тексты приветствий в которых используем $nick и $chan.
        # В дальнейшем они будут заменены на ник вошедшего и канал.
        set realmsgs {
            "Hi, how are you?"
            "Hi $nick!"
            "Hello $nick, welcome to $chan"
            "]]] WELCOME to $chan!!!11111 ^^ ^^ [[["
            "Hi [$nick], you have to pay 20$ to enter here"
        }
       
        bind join - * greet
        proc greet {nick host hand chan} {
            set greetmsg [lindex $::realmsgs [rand [llength $::realmsgs]]]
            set greetmsg [subst -nocommands $greetmsg]
            putserv "PRIVMSG $nick :$greetmsg"
        }


(c) http://tclhelp.net/unb/44

Re: Использование переменной в строке и дальнейшая подстановка.

СообщениеДобавлено: 08 янв 2009 12:41
xadmin
Спасибо. Очень вовремя ;)