Parse :: Irc. ein Parser für das IRC-Protokoll
Jetzt downloaden

Parse :: Irc. Ranking & Zusammenfassung

Parse :: Irc. Stichworte

IRC Perl-Modul Perl Parser IRC-Parser

Parse :: Irc. Beschreibung

Ein Parser für das IRC-Protokoll Analysieren: Verwenden Sie Parse :: IRC; # Funktionsschnittstelle My $ Hashref = Parse_Inc ($ irc_string); # OO-Schnittstelle MY $ IRC_PARSER = Analyse :: IRC-> NEU (); Meine $ Hashref = $ IRC_PARSER-> Analyse ($ IRC_String); Verwenden von Parse :: IRC in einem einfachen IRC Bot: # Ein einfacher IRC-Bot mit Parse :: IRC verwenden streng; Verwenden Sie io :: Socket; Verwenden Sie Parse :: IRC; mein $ parser = analysiert :: irc-> neu (öffentlich => 1); My% Dispatch = ('Ping' => \ IRC_PING, '001' => \ IRC_001, 'Public' => \ IRC_Public); # Der Server zur Verbindung mit und unseren Angaben. mein $ server = "irc.perl.moo"; mein $ nick = "parsaItr $$"; mein $ login = "einfach_bot"; # Der Kanal, den der Bot beitreten wird. mein $ channel = "# irc.pm"; # Verbindung zum IRC-Server herstellen. Meine $ Socke = NEUE IO :: Socket :: inet (Peeraddr => $ Server, Peerport => 6667, Proto => 'TCP') oder Matrize "TCP ') oder Matrize" kann nicht angeschlossen werden "; # Melden Sie sich am Server an. Drucken $ Socke "Nick $ nick \ r \ n"; $ Socke "User $ login 8 *: perl irc hacks roboter \ r \ n"; # Lesezeilen vom Server weiterlesen. während (mein $ eingegeben =) {$ eingegeben = ~ s / \ r \ n // Mein $ Hashref = $ Parser-> Parse ($ Input); Switch: {My $ type = lc $ HashRef -> {Befehl}; meine @args; Push @args, $ Hashref -> {Präfix}, wenn $ HashRef -> {Präfix}; Push @args, @ {$ Hashref -> {Parameter}}; if (definiert $ Versand {$}) {$ dispatch {$ type} -> (@ args); letzter Schalter; } Drucken stdout Join ('', "IRC_ $ Type:", @args), "\ n"; }} SUB IRC_PING {MEINE $ server = Schicht; Drucken $ Socke "Pong: $ Server \ r \ n"; Rückgabe 1; } SUB IRC_001 {drucken stdout "Anschluss an $ _ \ n"; $ Socke drucken "Join $ Channel \ r \ n"; Rückgabe 1; } SUB IRC_PUBLIC {MY ($ WHO, $, wo, $ was) = @_; drucken "$ wer -> $ wo -> $ what \ n"; Rückgabe 1; } Anforderungen: · Perl.

Parse :: Irc. Zugehörige Software