NET :: EWTOO :: BOT net :: ewtoo :: bot é um módulo de cliente de robôs de falador.
Baixe Agora

NET :: EWTOO :: BOT Classificação e resumo

NET :: EWTOO :: BOT Tag

Módulo Perl. robô falador robô de falador Ewtoo bot Ewtoo.

NET :: EWTOO :: BOT Descrição

Net :: EWToo :: Bot é um módulo de cliente do robô do falador. Net :: Ewtoo :: Bot é um falador ewtoo-compatível Robot Client Module.synopsis Use Net :: Ewtoo :: Bot; meu nome $ = 'jodbot'; Meu $ BOT = NEW NET :: EWTOO :: BOT; $ bot-> add_trigger ("(. +?) Diz '$ NAME, (. +?)'", handle_say); $ bot-> set_delay ('intervalo', 0, 5); $ bot-> Login ($ host, $ Port, $ User, $ Pass); $ bot-> Diga ("Oi! Eu sou o Robô de $ Nome!"); $ bot-> Ouça (); $ bot-> logout (); saída; Sub-handle_say {My ($ Sayer, $ disse) = @_; se ($ disse EQ 'hello') {$ bot-> Diga ("Por que Hello $ Sayer!"); } Elsif ($ disse EQ 'por favor, vá embora') {$ bot-> diga ("ok, tchau!"); $ bot-> logout (); } Retorna; } Métodos $ BOT-> Login ($ host, $ Porta, $ User, $ Pass); Isso registra o bot no $ host: $ portuário Usando $ User e $ pass. O BOT enviará retornos de carruagem extras para ignorar os motagens e mensagens salvas. As sub-rotinas de login definidas são executadas neste momento. $ BOT-> LOGOUT ($ Mensagem); envia o comando "sair" (em capitais para compatibilidade com o MBA4) e fecha o soquete. Quaisquer sub-rotinas de logout definidas são executadas antecipadamente. Se a mensagem $ for definida, o bot chama o comando "mquit" com $ Message como argumento. $ bot-> set_delay (dipo $, $ inferior, $ superior); este método define o atraso entre a chamada de um método e sua execução. Isso é útil para adicionar um atraso realista durante as comunicações com outro usuário. O tipo $ pode ser 'fixo', caso em que o atraso é sempre $ mais baixo (em segundos) e $ superior é ignorado, ou 'intervalo', caso em que o atraso será um número aleatório de segundos entre $ inferior e $ superior. $ bot-> Add_Trigger ($ Pattern, $ Callback); este método adiciona um gatilho usado pelo método listen (). Quando uma linha de entrada é recebida que corresponde a $ Pattern, $ Callback é executado. Os argumentos para $ Callback são quaisquer substrings capturados que você define em seu padrão, que é um regexp perl regular (sem as barras de fuga e líder). $ bot-> delete_trigger (padrão $); remove o acionador associado ao padrão $ na lista de gatilho. $ BOT-> DEF_LOGIN ($ CLANCLACK); especifica uma sub-rotina com $ ringente que será executado após os logs bot. $ bot-> def_logout ($ rarrative); especifica uma sub-rotina com $ rarragem que será executado antes dos logs bot Fora. $ bot-> Ouça ($ verbose); escute () lê a entrada do falador e executa os gatilhos conforme necessário. Se $ verbose estiver definido como 1, qualquer entrada recebida é impressa em stdout. $ bot-> Break (); $ Break () Define uma bandeira que informa o método Ouvir () para terminar e retornar. $ bot-> Diga ($ str); uma função de conveniência que faz o bot dizer $ str. $ bot-> Pense ($ str); uma função de conveniência que faz o bot pensar $ str. $ bot-> grito ($ str); uma função de conveniência que faz o bot shout $ str. $ bot-> Diga (USUÁRIO $, $ str); uma função de conveniência que faz o bot dizer $ str para $-usuário. $ bot-> comando ($ cmd); permite o chamado de um comando de falador arbitrário. $ bot-> Getline (); lê uma única linha de entrada do falador. Requisitos: · Perl.

NET :: EWTOO :: BOT Software Relacionado