Parse :: IRC Een parser voor het IRC-protocol
Download nu

Parse :: IRC Rangschikking & Samenvatting

Parse :: IRC Tags

Irc Perl-module perl parser Irc Parser

Parse :: IRC Beschrijving

Een parser voor IRC protocol Parse :: IRC is een Perl module die een gemakkelijke manier ontleden tekstregels volgens het protocol verschaft IRC (zie RFC1459 en RFC2812) .SYNOPSISGeneral gebruik: use strict; gebruik Parse :: IRC; # Functionele interface mijn $ hashref = parse_irc ($ irc_string); # OO-interface mijn $ irc_parser = Parse :: IRC-> new (); mijn $ hashref = $ irc_parser-> parse ($ irc_string), het gebruik van Parse :: IRC op een eenvoudige IRC bot: # Een eenvoudige IRC bot met behulp van Parse :: IRC use strict; gebruik maken van IO :: Socket; gebruik Parse :: IRC; mijn $ parser = Parse :: IRC-> new (public => 1); mijn% dispatch = ( 'ping' => \ irc_ping, '001' => \ irc_001, 'public' => \ irc_public); # De server om verbinding te maken en onze details. mijn $ server = "irc.perl.moo"; mijn $ nick = "parseirc $$"; mijn $ login = "simple_bot"; # Het kanaal dat het bot zal treden. mijn $ channel = "# IRC.pm"; # Aansluiten op de IRC server. mijn $ sok = new IO :: Socket :: INET (PeerAddr => $ server, PeerPort => 6667, Proto => 'tcp') of sterven "kan geen verbinding \ n"; # Meld u aan bij de server. print $ "NICK $ nick \ r \ n" sok; print $ sok "USER $ login 8 *: Perl IRC Hacks Robot \ r \ n"; # Houd het lezen van regels uit de server. while (mijn ingang = $) {$ ingang = ~ s / \ r \ n // g; mijn $ hashref = $ parser-> parse ($ input); SWITCH: {mijn $ type = lc $ hashref -> {commando}; mijn @args; push @args, $ hashref -> {prefix} if $ hashref -> {prefix}; duwen @args, @ {$ hashref -> {params}}; if (gedefinieerd $ dispatch {$ soort}) {$ verzending {$ soort} -> (@ args); laatste SWITCH; } Te drukken STDOUT join ( '', "irc_ $ Type:" @args), "\ n"; }} Sub irc_ping {mijn $ server = shift; print $ sok "PONG: $ server \ r \ n"; return 1; } Sub irc_001 {print STDOUT "Verbonden met $ _ \ n"; afdrukken $ sock "WORD channel $ \ r \ n"; return 1; } Sub irc_public {mijn ($ die $ waar $ wat) = @_; afdrukken "$ who -> $ waar -> $ what \ n"; return 1; } Vereisten: · Perl

Parse :: IRC Gerelateerde software