Analisar :: IRC.

Um analisador para o protocolo do IRC
Baixe Agora

Analisar :: IRC. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Chris Williams
  • Site do editor:
  • http://search.cpan.org/~bingos/

Analisar :: IRC. Tag


Analisar :: IRC. Descrição

Um analisador para o protocolo do IRC PARSE :: O IRC é um módulo Perl que fornece uma forma conveniente de análise de linhas de texto em conformidade com o protocolo IRC (consulte RFC1459 ou RFC2812). UsosynopsisGeneral: Use rigoroso; Use Analise :: IRC; # Interface funcional Meu $ hashref = parse_irc ($ IRC_STRING); # OO Interface Meu $ IRC_PARSER = PARSE :: IRC-> NOVO (); Meu $ hashref = $ IRC_PARSER-> anal ($ IRC_STRING); Usando Parse :: IRC em um simples Bot IRC: # Um simples Bot IRC usando Analise :: IRC use rigoroso; Use io :: soquete; Use Analise :: IRC; Meu $ parser = anal :: IRC-> Novo (Public => 1); My% Dispatch = ('Ping' => \ Irc_ping, '001' => \ IRC_001, 'Public' => \ IRC_Public); # O servidor para se conectar e nossos detalhes. meu $ server = "irc.perl.moo"; meu $ nick = "parseirc $$"; Meu $ login = "simple_bot"; # O canal que o bot vai se juntar. meu $ canal = "# IRC.PM"; # Conecte ao servidor IRC. Meu $ SOCK = NOVO IO :: Socket :: Inet (PeerAddr => $ Server, Peerport => 6667, proto => 'TCP') ou morrer "não pode conectar \ n"; # Faça logon no servidor. Imprimir $ Sock "Nick $ Nick \ r \ N"; Imprimir $ Sock "Usuário $ Login 8 *: Perl IRC Hacks Robot \ R \ N"; # Continue lendo linhas do servidor. enquanto (meu $ input =) {$ input = ~ s / \ r \ n // g; meu $ hashref = $ parser-> analisar ($ input); Switch: {my dype = lc $ hashref -> {command}; meus @args; push @args, $ hashref -> {prefix} se $ hashref -> {prefix}; push @args, @ {$ hashref -> {params}}; if (definido $ Dispatch {$ TYPE}) {$ Dispatch {$ TYPE} -> (@ ARGS); Último interruptor; } Imprimir Stdout Junte ('', "IRC_ $ Type:", @args), "\ n"; }} sub irc_ping {my $ server = shift; Imprimir $ Sock "pong: $ server \ r \ n"; retornar 1; } Sub IRC_001 {Imprimir stdout "conectado a $ _ \ n"; Imprimir $ Sock "Junte-se a $ Channel \ R \ N"; retornar 1; } sub irc_public {my ($ OMS, $ em que, $ o que) = @_; imprimir "$ quem -> $ where -> $ o que \ n"; retornar 1; } Requisitos: · Perl.


Analisar :: IRC. Software Relacionado

Sobre nós