Parse :: IRC Un analyseur pour le protocole IRC
Télécharger maintenant

Parse :: IRC Classement & Résumé

Parse :: IRC Mots clés

IRC Module Perl perl analysser Parseur irc

Parse :: IRC La description

Un analyseur pour le protocole IRC Parse :: IRC est un module Perl qui fournit un moyen pratique de l'analyse syntaxique des lignes de texte conformes au protocole IRC (voir RFC1459 ou RFC2812) d'utilisation .SYNOPSISGeneral: utilisation stricte; utilisation Parse :: IRC; # Interface fonctionnelle my $ hashref = parse_irc (irc_string $); # OO Interface my $ irc_parser = Parse :: IRC-> new (); my $ hashref = $ irc_parser-> parse (irc_string $) L'utilisation Parse :: IRC dans un simple bot IRC: # Un simple bot IRC en utilisant Parse :: utilisation IRC stricte; utiliser io :: socket; utilisation Parse :: IRC; my $ parser = Parse :: IRC-> nouveau (public => 1); mon expédition% = ( 'ping' => \ irc_ping, '001' => \ irc_001, 'public' => \ irc_public); # Le serveur pour se connecter et nos coordonnées. mon serveur $ = "irc.perl.moo"; my $ nick = "parseirc $$"; mon $ login = "simple_bot"; # Le canal que le robot rejoindra. mon canal $ = "# IRC.pm"; # Se connecter au serveur IRC. ma chaussette $ = new IO :: Socket :: INET (PeerAddr => serveur $, PeerPort => 6667, Proto => 'tcp') ou mourir "Impossible de se connecter \ n"; # Ouvrez une session sur le serveur. print $ sock "NICK $ nick r \ n"; print $ sock "USER $ login 8 *: Perl IRC Hacks Robot r \ n"; # Continuez à lire des lignes à partir du serveur. while (mon entrée $ =) {$ input = ~ s / \ r \ n // g; my $ hashref = $ parser-> parse (entrée $); SWITCH: {my $ type = $ hashref en monnaies locales -> {commande}; mes @args; pousser @args, $ hashref -> {préfixe} if $ hashref -> {préfixe}; pousser @args, @ {$ hashref -> {params}}; si (défini dispatch $ {$ type}) {$ expédition {$ type} -> (@ args); Dernier commutateur; } Print STDOUT join ( '', "irc_ $ Type:", @args), "\ n"; }} Sous {irc_ping mon serveur $ = shift; print $ sock "PONG: $ server \ r \ n"; retour 1; } Sub irc_001 {print STDOUT "Relié à $ _ \ n"; print $ sock "JOIN $ canal \ r \ n"; retour 1; } {Sous irc_public mon ($ qui, $ où, quoi $) = @_; imprimer "$ qui -> $ où -> $ ce \ n"; retour 1; } Exigences: · Perl

Parse :: IRC Logiciels associés