Parse :: IRC. Un parser per il protocollo IRC
Scarica ora

Parse :: IRC. Classifica e riepilogo

Parse :: IRC. Tag

IRC. modulo Perl perl parser IRC parser

Parse :: IRC. Descrizione

Un parser per il protocollo IRC Parse :: IRC è un modulo perl che fornisce un modo conveniente di analizzazione delle linee di testo conforme al protocollo IRC (vedere RFC1459 o RFC2812) .SynopsisGeneral Uso: utilizzare rigoroso; Usa Parse :: IRC; # Interfaccia funzionale My $ Hashref = Parse_irc ($ IRC_String); # Interfaccia oo My $ IRC_Parser = Parse :: IRC-> Nuovo (); My $ Hashref = $ IRC_Parser-> Parse ($ IRC_String); Utilizzo del Parse :: IRC in un semplice IRC Bot: # Un semplice bot IRC usando Parse :: IRC Usa rigoroso; Usa IO :: presa; Usa Parse :: IRC; My $ Parser = Parse :: IRC-> Nuovo (pubblico => 1); My% Dispatch = ('Ping' => \ IRC_PING, '001' => \ IRC_001, 'PUBBLICA' => \ IRC_PUBLICA); # Il server per connettersi e i nostri dettagli. My $ Server = "irc.perl.moo"; My $ Nick = "Parseirc $$"; My $ Login = "Simple_Bot"; # Il canale che il bot si unirà. My $ Channel = "# IRC.PM"; # Connetti al server IRC. My $ Sock = NUOVO IO :: presa :: inet (peerAdddr => $ server, peerport => 6667, proto => 'tcp') o die "non può connettersi \ n"; # Accedere al server. Stampa $ calzino "Nick $ Nick \ r \ n"; Stampa $ Sock "Utente $ Login 8 *: Perl IRC Hacks Robot \ R \ N"; # Continua a leggere le linee dal server. while (my $ input =) {$ ingresso = ~ s / \ r \ n // g; My $ HASHREF = $ Parser-> Parse ($ INPUT); Interruttore: {My $ Type = LC $ Hashref -> {command}; i miei @args; PUSH @ARGS, $ HASHREF -> {PREFIX} IF $ HASHREF -> {PREFIX}; spingere @args, @ {$ Hashref -> {params}}; se (definito $ dispatch {$ type}) {$ dispatch {$ type} -> (@ args); Ultimo interruttore; } Stampa Stdout Join ('', "IRC_ $ Tipo:", @Args), "\ n"; }} sub irc_ping {my $ server = shift; Stampa $ calzino "Pong: $ server \ r \ n"; ritorno 1; } sub irc_001 {stampa stdout "collegato a $ _ \ n"; Stampa $ calzino "Unisciti a $ Channel \ r \ n"; ritorno 1; } sub irc_public {my ($ chi, $ dove, $ cosa) = @_; Stampa "$ chi -> $ dove -> $ cosa \ n"; ritorno 1; } Requisiti: · Perl.

Parse :: IRC. Software correlato