POE :: Composant :: IRC POE :: Composant :: IRC est un module client IRC entièrement piloté par l'événement.
Télécharger maintenant

POE :: Composant :: IRC Classement & Résumé

POE :: Composant :: IRC Mots clés

Client IRC Module Perl perl module IRC-évènementielle

POE :: Composant :: IRC La description

POE :: Component :: IRC est un module client IRC entièrement événementiel. POE :: Component :: IRC est un client IRC entièrement événementiel module.SYNOPSIS # Un simple utilisation Rot13 bot 'chiffrement' strict; utiliser des avertissements; utilisation de POE (Component :: IRC); mon surnom $ = 'Flibble'. $$; mon IRCNAME de $ = 'Flibble le marin Bot'; my $ IRCSERVER = 'irc.blahblahblah.irc'; mon port $ = 6667; mes @channels = ( '#Blah', '#foo', '#bar'); # Nous créons un nouvel objet PoCo-IRC et composant. mon irc $ = POE :: Component :: IRC-> spawn (pseudo => $ surnom, serveur => $ IRCSERVER, port => $ port, IRCNAME => $ IRCNAME,) ou mourir "Oh noooo $!"; POE :: Session-> créer (package_states => ,], tas => {irc => $ irc},); $ poe_kernel-> exécuter (); sortie 0; Sub _start {My ($ Kernel, $ tas) = @_ ; # Nous obtenons la session ID du composant de l'objet # et l'enregistrement et la connexion au serveur spécifié. my $ irc_session = tas $ -> {irc} -> session_id (); $ post kernel-> (irc_session $ => register => 'all'); $ post kernel-> (irc_session $ => connect => {}); UNDEF; } {Sous irc_001 mon ($ noyau, $ expéditeur) = @_ ; # Obtenez à tout moment en accédant au tas de # l'envoyeur my $ poco_object = $ pays expéditeur> get_heap () l'objet du composant; print "Connecté à", $ poco_object-> nom_serveur (), "n"; # Dans tous les événements irc_ * SENDER sera la session PoCo-IRC $ kernel-> poste ($ sender => join => $ _) pour @channels; UNDEF; } {Sous irc_public mon ($ noyau, $ expéditeur, $ qui, $ où, quoi $) = @_ ; my $ nick = (split / /, $ qui!) ; mon canal $ = $ où -> ; si (mon ($ rot13) = $ what = ~ / ^ rot13 (+) /.) {$ rot13 = ~ tr ; $ Kernel-> poste ($ sender => privmsg => $ channel => "nick $: rot13 de $"); } FNUD; } # Nous avons enregistré pour tous les événements, cela produira quelques informations de débogage. sous _default {my ($ événement, $ args) = @_ ; mon @output = ( "$ événement:"); foreach my $ arg (@ $ args) {if (ref ($ arg) eq 'MATRICE') {push (@output, ""); } Else {push (@output, "$ arg"); }} Imprimer STDOUT rejoindre '', @output, "n"; retour 0; } POE :: Component :: IRC est un composant POE (qui l'aurait deviné?) Qui agit en tant que client IRC facilement contrôlable pour vos autres composants POE et sessions. Vous créez un composant IRC et lui dire quels événements vos soucis de session sur et où se connecter, et il renvoie des événements intéressants IRC quand ils se produisent. Vous faites le client faire des choses en l'envoyant des événements. C'est tout ce qu'on peut en dire. Cool, non? Le POE :: Component :: Distribution IRC a un docs / dossier avec une collection de documents, y compris saillant la RFCs.POE pertinente :: Component :: IRC se compose d'une POE :: session qui gère la connexion IRC et de la irc_ 'dépêches événements préfixés aux sessions intéressées et un objet qui peut être utilisé pour accéder à des informations supplémentaires à l'aide methods.Sessions enregistrent leur intérêt à recevoir des événements « irc_ » en envoyant à l'élément « registre ». On pourrait généralement le faire dans votre gestionnaire de _start. Votre session continuera à recevoir des événements jusqu'à ce que vous désinscription. La composante continuera de rester jusqu'à ce que vous lui dites pas avec « shutdown'.The SYNOPSIS démontre un bot.Requirements assez basique: · Exigences Perl: · Perl

POE :: Composant :: IRC Logiciels associés