NET :: EWTOO :: BOT NET :: EWTOO :: BOT es un módulo de cliente robot de Talker.
Descargar ahora

NET :: EWTOO :: BOT Clasificación y resumen

NET :: EWTOO :: BOT Etiquetas

Módulo perl robot hablador robot conversador robot Ewtoo

NET :: EWTOO :: BOT Descripción

NET :: EWTOO :: BOT es un módulo de cliente robot de Talker. NET :: EWTOO :: BOT es un Module.Synopsis use Net :: Ewtoo :: Ewtoo :: Ewtoo :: My $ Name = 'Jodbot'; MY $ BOT = NEW NET :: EWTOO :: BOT; $ bot-> add_trigger ("(. +?) dice '$ nombre, (. +?)'", manejador_say); $ bot-> set_delay ('rango', 0, 5); $ bot-> Inicio de sesión ($ host, $ puerto, $ usuario, $ pase); $ Bot-> Di ("¡Hola! ¡Soy el robot de nombre de $"); $ bot-> escuchar (); $ bot-> Cerrar sesión (); Salida; Sub Manand_Say {My ($ Sayer, $ dijo) = @_; Si ($ dijo EQ 'Hola') {$ Bot-> Di ("¿Por qué Hola $ Sayer!"); } Elsif ($ dijo que EQ 'Por favor, vaya ") {$ Bot-> Diga (" OK, BYE! "); $ bot-> Cerrar sesión (); } regreso; } Métodos $ Bot-> Inicio de sesión ($ host, $ puerto, $ usuario, $ pase); Esto registra el bot en el host $: $ Port Talker usando $ USER y $ PASS. El BOT enviará retornos de carro adicionales a los mots de desviación y mensajes guardados. Cualquier subcropinas de inicio de sesión definidas se ejecutan en este punto. $ bot-> Cerrar sesión ($ Mensaje); envía el comando "Salir" (en mayúsculas para la compatibilidad con MBA4), y cierra el zócalo. Cualquier subrutina de cierre de sesión definida se ejecuta de antemano. Si se define $ $, el BOT llama al comando "MQUIT" con $ MENSAJE COMO SU ARGUMENTO. $ Bot-> Set_Delay ($ Tipo, $ inferior, $ superior); Este método establece el retraso entre la llamada de un método y su ejecución. Esto es útil para agregar un retraso realista durante las comunicaciones con otro usuario. $ Tipo se puede 'fijo', en cuyo caso el retraso es siempre $ más bajo (en segundos) y $ superior se ignora, o 'rango', en cuyo caso la demora será un número aleatorio de segundos entre $ menor y $ superior. $ Bot-> Add_Trigger ($ PATTEL, $ Callback); Este método agrega un gatillo utilizado por el método de escucha (). Cuando se recibe una línea de entrada que coincide con $ PATTEL, se ejecuta $ Callback. Los argumentos a $ Callback son cualquier subcadena capturada que usted define en su patrón, que es un regular regular de PERL (sin las barras de arrastre y las líderes). $ bot-> eliminar_trigger ($ patrón); elimina el disparador asociado con $ patrón de la lista de activadores. $ bot-> def_login ($ devolución de llamada); Especifica una subrutina con una devolución de llamada de $ que se ejecutará después de los registros de bots. $ bot-> def_logout ($ Callback); Especifica una subrutina con $ Callback que se ejecutará antes de los registros de BOT. fuera. $ bot-> Escuchar ($ verbose); escuchar () lee la entrada del hablador y ejecuta los desencadenantes según sea necesario. Si $ verbosa se establece en 1, entonces se imprime cualquier entrada recibida en STDOUT. $ bot-> break (); $ break () establece una bandera que le dice al método de escucha () que termine y regrese. $ bot-> Di ($ str); una función de conveniencia que hace que el bot sea $ str. $ bot-> piensa ($ str); una función de conveniencia que hace que el bot piense $ str. $ bot-> grito ($ str); Una función de conveniencia que hace que el bot griega $ STR. $ bot-> Dile ($ usuario, $ str); Una función de conveniencia que hace que el BOT le indique al usuario $ STR a $. $ bot-> comando ($ cmd); permite la llamada de un comando arbitrary conversador. $ bot-> Getline (); lee una sola línea de entrada del hablador. Requisitos: · Perl

NET :: EWTOO :: BOT Software relacionado