Программирование - EggDrop боты, IRC и TCL.

Разное

Как отлаживать куски программы в отдельном месте, не мешая боту?

bind dcc n test testproc
proc testproc {hand idx arg} {
# (хотя объявлять заранее не нужно, lappend сама создаст)
   set a ""
# записываем 3 элемента в список
   lappend a AAAAA
   lappend a BBBBB
   lappend a CCCCC
# выводим разультат на экран
   putlog "**test**: $a"
# удаляем первый элемент
   set a [lrange $a 1 end]
# выводим результат на экран
   putlog "**test**: $a"
}

.tcl

bind .. команда

.tcl testproc [аргументы]

.tcl команда1; команда2; ...

Иногда бывают ТАКИЕ глюки, что руки опускаются...

set asd 1
after 1000 testtest
proc testtest {} {
   putlog "test 1: ...."
   # с этого места нихера работать не будет и в лог (чат бота) ошибки не идут 
   putlog "test 2: $asd"
}

Важный совет при установке/проверке флагов юзеру

matchattr $hand X $chan

matchattr $hand |X $chan

matchattr $hand -|X $chan

RAW: получение ВСЕГО текста от сервера. В частности, как узнать о коннекте/дисконнекте к серверу, т.к. стандарные средсва бота этого не позволяют.

"bind mode.."



bind raw - 1 a
bind raw - 2 a
bind raw - 3 a
.........
.........

proc a { from key msg } {
   putlog "RAW: $from | $key | $msg"
}



< ? for ($i=0; $i<500; $i++) { echo "bind raw - $i a\n"; } ? >

proc a { from key msg } {
   putlog "RAW: $from | $key | $msg"
}

Готовый код тут (raw.tcl)

.tcl source путь/raw.tcl

.rehash

.tcl putserv "WHOIS dima"

.tcl [любой-TCL-код]

При коннекте к серверу: 251 | TAHK :There are 1 users and 9 invisible on 1 servers 254 | TAHK 2 :channels formed 255 | TAHK :I have 10 clients and 0 servers WHOIS TAHK 311 | TAHK TAHK ~TAHK 212.193.6.215 * : !>>> HELP HTTP://BOT.NET.RU <<<! 319 | TAHK TAHK :@#phpclub #russiancyrillic 312 | TAHK TAHK *.undernet.org :The Undernet Underworld 317 | TAHK TAHK 325 993241829 :seconds idle, signon time 318 | TAHK TAHK :End of /WHOIS list. При входе в канал (это ловить не требуется): 332 | TAHK #phpclub :p 333 | TAHK #phpclub TAHK 993240617 353 | TAHK = #phpclub :TAHK @TAHK8 TAHK7 TAHK2 TAHK4 TAHK6 MAPC TAHK3 TAHK5 @DlMA 366 | TAHK #phpclub :End of /NAMES list. 368 | TAHK #phpclub :End of Channel Ban List 324 | TAHK #phpclub +n 329 | TAHK #phpclub 993223742 Хотя кое-что тут интересно: 329 - это код "время создания канала" т.е. 993223742 - unix-время создания канала 354 | TAHK #phpclub ~TAHK 212.193.6.215 TAHK H 354 | TAHK #phpclub ~TAHK8 ns.ipo.spb.ru TAHK8 H@ .....(полный список людей).... 354 | TAHK #phpclub xxx ip183.ipo.spb.ru DlMA H@ 315 | TAHK #phpclub :End of /WHO list. 331 | TAHK #russiancyrillic :No topic is set. 332 | TAHK #phpclub :p 333 | TAHK #phpclub TAHK 993240617 Расшифровка кодов: H@ простой чел с опом на канале H+ простой чел с "голосом" на канала H простой чел без опа на канала H*@ ИРЦоп с опом на канале H* ИРЦоп без опа H*+ ИРЦоп без опа на канале, но с "голосом" =) ("голос" - это когда "+" перед ником) И еще: если после этих кодов стоит "d", то юзер в режиме "d", это игнор всего текста из каналов (подробности - http://bot.net.ru/irc.php) Nifiga (неправильная команда - чтобы вести лог своих ошибок): 421 | TAHK Nifiga :Unknown command

Будьте осторожны со временем [unixtime]

[unixtime]



.tcl putlog "1: [unixtime]"; benchmark 100000 { append s "s" } ; putlog "2: [unixtime]";

В примере функция benchmark 100'000 раз выполняет тестовый скрипт. Длиться это около 10 секунд, а [unixtime] не меняется. Выход простой - используйте в таких особых случаях [clock second] Она вернет тоже, что и [unixtime], т.е. компьютерное время, но зато она не блокируется на время обработки событий в боте.

Кстати, если вам не лень писать 2 слова, вместо одного, программа будет работать быстрее, вот тесты:

 .tcl benchmark 10000 { set a [unixtime] }
 All time: 0.839 sec. One cycle time: 0.000083 sec (Check time ~ 1 sec)
 .tcl benchmark 10000 { set a [clock seconds] }
 All time: 0.614 sec. One cycle time: 0.000061 sec (Check time ~ 0 sec)

[clock seconds]

Где *вечно* хранить кучу разных переменных + как зафиксировать RESTART/REHASH?

rehash

.rehash



# в глобальной области программы (не внутри какой-либо функции):
if {![info exists x]} {set x "привет"}

При .rehash бот перегружает все скрипты (уничтожив старые функции и добавив выполнив код повтороно, т.е. добавив новые), но не уничтожает объявленные глобальные переменные, активные таймеры (after ms script) и т.п. результат деятельности программы. А при .restart, как и при запуске бота, и память, и скрипты, и все остальное уничтожается. Т.е. если вы добавили новые скомпилированные модули, то они перезагрузятся. (Чтобы зафиксировать коннект к серверу - смотрите главу о RAW)

Если подумать над сказанным выше (и куском кода), то можно сделать 2 простых вывода:

чтобы зафиксировать событие запуска бота или .restart, нужно использовать приведенный выше пример, а вместо "set x ..." вызывать процедуру bot_start, в которой поместить все то, что должен делать бот при старте. Например, туда можно поместить set x "привет" (не забыв написать global x в начале функции) и кучу других необходимых действий.
чтобы зафиксировать .rehash нужно сделать аналогично, только не проверять на наличие какой-либо переменной, а прямо в глобальной области любого .tcl скрипта вызвать функцию bot_rehash и в ней разместить все необходимые действия

Итак, после этих знаний вернемся к вопросу, где длительно хранить свои переменные. Самое простое решение - это хранение в XTRA полях бота. Пример:



setuser <hand> XTRA <название переменной> <значение переменной>

Хранить это можно как у всех пользователей, так и у какого-то одного (либо персональюную информацию, либо общую). Т.е. для общей инфомарции можно завести мнимого юзера -my, и уже в его XTRA поля писать разные данные. Назвать данного пользователя надо с "-", чтобы сложнее было его испортить. Например, нужно поставить заглушку на вход пользователей с именем, начинающимся на "-", и не давать удалять их командой .-user.

Все было бы хорошо, но такой способ имеет существенные ограничения - размер переменных не бесконечен, а ограничен примерно в 1000 байт. Поэтому вариант хранения в XTRA полях не подходит для больших данных, которых, увы, много.

Решение ниже.



#
# инициализация массива MyVar для постоянного хранения данных
#
proc init_myvar {} {
   global myvar
   set name "myvar.txt"
   if {![file exists $name]} {
      catch {
         set g [open $name w+]
         puts $g "test test"
         close $g
      }
   }
   catch {
      set g [open $name r]
      while {![eof $g]} {
         set s [gets $g]
         set myvar([lindex $s 0]) [sminus $s 1]
      }
      close $g
   }
   if {![info exists myvar(test)]} {
      putlog "File $name (any variables) not read!"
      die "Can't read myvar file"
   }
}
if {![info exists init_myvar]} {
   set init_myvar 1
   init_myvar
}


#
# чтение из массива MyVar
#
proc gv {name} {
   global myvar
   if {[info exists myvar($name)]} {return $myvar($name)}
   return ""
}

#
# запись в массив MyVar + сохранение на диск
#
proc sv {name value} {
   global myvar
   set myvar($name) $value
   if {$myvar($name)==""} {unset myvar($name)}
   set ok 0
   catch {
      set g [open "myvar.txt" w+]
      foreach a [array names myvar] {
         if {[strlen $a]>0} {
            puts $g "$a $myvar($a)"
         }
      }
      close $g
      set ok 1
   }
   if {$ok!=1} {die "Can't save myvar"}
}

Описание.

Как видите, кусок текста

if {![info exists init_myvar]} {
   set init_myvar 1
   init_myvar
}

sv

gv



# сохранить данные
sv <название переменной> <значение переменной>

# пример записи переменной $mypass под именем 'pass' в память:
sv pass $mypass

# загрузить данные
set <куда загрузить> [gv <название переменной>]

# пример чтения из памяти переменной под названием 'pass' и запись 
# ее в переменную $mypass
set mypass [gv pass]

Программа хранит данные в памяти и записывает при изменении их на диск. Если ей неудается создать/прочитать файл для храниения myvar.txt, то бот сразу завершает работу, выводя сообщение на экран (если ошибка проиходит при старте) и в логи.

Если записать в переменную пустую строку (""), то переменная из области памяти удалется. Если попробовать прочитать несуществующую переменную, вам вернут пустую строку.

Вы можете хранить любые данные и под любыми именами, кроме:

не используйте пробел в названиях переменных
не используйте символ перехода на новую строку в самих данных

Другие события

bind

tcl-commands.rus.txt

kill -[тип] [pid]

Замена и регулярные выражения

{

число1

число2

}

выделены

a{4}   ==> равносильно aaaa    (повторить а ровно 4 раза)
a{2,4} ==> равносильно aaa?a?  (повторить a от 2х до 4х включительно раз)
a{0,1} ==> равносильно a?
a{1,}  ==> равносильно a+      (повторить a от 1го до +бесконечности раз)
a{0,}  ==> равносильно a*

regsub -all -nocase {[^a-z0-9_()-]} $filename "_" filename

if {[regexp -nocase {([0-9][0-9]?)} $string - int]} {соответствует} {нет}

if {[string match шаблон проверяемая_строка]} {соответствует} {нет}

[..]

[

string match

Переменные/функции

В TCL бывают обычные переменные, списки и массивы. Работа со списками вынесена в отдельную главу, а тут описаны действия над переменными и массивами. Информация данной главы следует из мануала TCL, но найти ее крайне трудно при переходе на TCL с какого-либо традиционного веб-языка, типа PHP =)

Объявление переменных перед первым использованием:

set a hello
# тоже самое:
set a "hello"

set a "hello \[ скобка \" кавычка \{ еще скобка \$ доллар \\ слеш"
# тоже самое:
set a  {hello [ скобка " кавычка \{ еще скобка $ доллар \ слеш}

set mylist {
   "hello"
   "world"
}

set myarray(a) "hello"
set myarray(b) "world"

set $name hello

.tcl set a b; set $a 1; putlog "\$a=$a, \$b=$b"
вернет:
$a=b, $b=1

Проверить существование переменой

if {[info exists название_переменной]} {существует} {не существует}

if {[array exists название_массива]} {существует} {не существует}

if {[info exists название_массива(элемент)]} {существует} {не существует}

info exists myvar(test)

info exists myvar($i)

Удалить переменную

unset назвение_переменной

unset название_массива

unset название_массива(элемент)

Существование фунции

info commands маска



# check function md5
if {[info commands md5] != "md5" } { 
   die "Function md5() not found. Can't load <***.tcl>" 
}

Список переменных

info vars маска

"*"

info globals маска

Работа со списками.

Здесь краткая справка по работе с массивами.

Что такое список?

Это массив. Только в TCL их называют списками. Все функции для списков начинаются на букву 'L'. Кроме списков в TCL существуют и настоящие массивы, но для использования массивов начинающим программистам нужно начать работу со списков.

Как задать пустой список?

set mylist ""

Как задать список из 2-х слов?

set mylist "слово1 слово2"

list

Как использовать разделитель, отличный от пробела?

split

split mylist разделитель

split "bot.net.ru" .

Еще есть join - склеить список в строку, разделяя элементы нужным разделитем (по умолчанию - проблел): join mylist разделитель

Как добавить элемент к списку?

lappend

lappend mylist новый_элемент

linsert список позиция элемент1 элемент2 ...

Как узнать кол-во элементов в списке?

llength mylist

Как удалить все эленты с первого по N?

!topic #канал фраза

lrange mylist начало конец

set mylist [lrange $mylist N end]

lreplace

set mylist [join [lrange [split $mylist] N end]]

Как обратится к какому либо элементу списка?

lindex mylist позиция

Как вывести на экран (в чат бота) список?

putlog "$mylist"