Postrar :: IRC

Un analizador para el protocolo IRC
Descargar ahora

Postrar :: IRC Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Chris Williams
  • Sitio web del editor:
  • http://search.cpan.org/~bingos/

Postrar :: IRC Etiquetas


Postrar :: IRC Descripción

Un analizador para el protocolo IRC Parse :: IRC es un módulo PERL que proporciona una forma conveniente de analizar las líneas de texto que se adapte al protocolo IRC (ver RFC1459 o RFC2812) .SynopsisSisGeneral Uso: Use estricto; Usar Parse :: IRC; # Interfaz funcional My $ hashref = parse_irc ($ IRC_String); # OO Interfaz My $ IRC_PARSER = PERSONA :: IRC-> Nuevo (); MY $ HASHREF = $ IRC_PARSER-> PERSONA ($ IRC_STRING); usando parse :: IRC en un simple bot de IRC: # A simple Bot IRC usando Parse :: IRC usa estricto; Usa IO :: Socket; Usar Parse :: IRC; My $ Parser = Purse :: IRC-> Nuevo (Público => 1); My% Dispatch = ('Ping' => \ IRC_Ping, '001' => \ IRC_001, 'Public' => \ IRC_Public); # El servidor para conectarse y nuestros detalles. My $ Server = "irc.perl.moo"; My $ Nick = "Pursirc $$"; MY $ LOGIN = "SIMPLE_BOT"; # El canal que se unirá el bot. My $ Channel = "# irc.pm"; # Conectar al servidor IRC. My $ SOCK = NEW IO :: Socket :: inet (peeraddr => $ servidor, peerport => 6667, proto => 'tcp') o die "no se puede conectar \ n"; # Inicie sesión en el servidor. Imprimir $ SOCK "Nick $ Nick \ R \ N"; Imprimir $ SOCK "User $ Iniciar sesión 8 *: Perl IRC Hacks Robot \ R \ N"; # Mantenga las líneas de lectura del servidor. mientras (MIS $ INPUT =) {$ INPUT = ~ S / \ R \ N // G; My $ hashref = $ parser-> parse ($ entrada); Interruptor: {My $ Type = LC $ Hashref -> {comando}; mis @args; Push @Args, $ Hashref -> {prefix} si $ hashref -> {prefijo}; Push @Args, @ {$ hashref -> {params}}; Si (definido $ Despacho {$ Type}) {$ Despacho {$ Type} -> (@ args); Último interruptor; } Print STdout Únete ('', "IRC_ $ Tipo:", @Args), "\ N"; }} sub irc_ping {My $ Server = Shift; Imprimir $ SOCK "PONG: $ Server \ R \ N"; return 1; } sub irc_001 {imprimir stdout "conectado a $ _ \ n"; Imprimir $ SOCK "Únase a $ Channel \ R \ N"; return 1; } sub irc_public {my ($ who, $ donde, $ cual) = @_; Imprimir "$ quien -> $ donde -> $ que \ n"; return 1; } Requisitos: · Perl


Postrar :: IRC Software relacionado

Sobre nosotros