Parse :: IRC

IRC protokolü için bir ayrıştırıcı
Şimdi İndirin

Parse :: IRC Sıralama ve Özet

Reklamcılık

  • Rating:
  • Lisans:
  • Perl Artistic License
  • Fiyat:
  • FREE
  • Yayıncı adı:
  • Chris Williams
  • yayıncı web sitesi:
  • http://search.cpan.org/~bingos/

Parse :: IRC Etiketler


Parse :: IRC Açıklama

IRC protokolü için bir ayrıştırıcı Parse :: IRC, IRC protokolüne uygun metnin ayrıştırılmasının uygun bir yolunu sağlayan bir Perl modülüdür (bkz. RFC1459 veya RFC2812) .Synopsisgeneral Kullanım: Sıkı kullanın; Parse :: IRC kullanın; # Fonksiyonel arayüzüm $ hashref = parse_irc ($ irc_string); # Oo arayüzüm $ irc_parser = Parse :: IRC-> Yeni (); $ hashref = $ irc_parser-> Parse ($ irc_string); basit bir IRC botunda ayrıştırma :: IRC kullanarak: # ayrıştırma :: IRC kullanan basit bir IRC botu; IO :: soket kullanın; Parse :: IRC kullanın; $ Parser = Parse :: IRC-> Yeni (kamu => 1); Benim% Dispatch = ('Ping' => \ IRC_PING, '001' => \ IRC_001, 'halk' => \ irc_public); # Bağlanacak sunucu ve ayrıntılarımıza. $ Sunucum = "irc.perl.moo"; $ nick = "parseirc $$"; $ login = "simple_bot"; # Botun katıldığı kanal. $ kanalım = "# irc.pm"; # IRC sunucusuna bağlanın. $ çorap = yeni io :: soket :: inet (peeraddr => $ sunucu, peerport => 6667, proto => 'tcp') veya ölmek "\ n bağlanamıyor"; # Sunucuya oturum açın. Yazdır $ çorap "Nick $ nick \ r \ n"; PRINT $ SOCK "USER $ Oturum Açma 8 *: Perl IRC Hacks Robot \ r \ n"; # Sunucudan çizgileri okuma. süre ($ giriş =) {$ giriş = ~ s / \ r \ n // g; $ hashref = $ parser-> ayrıştırma ($ giriş); Anahtar: {$ type = lc $ hashref -> {komut}; benim @args; @args, $ hashref -> {Prefix} eğer $ hashref -> {Prefix}; @args, @ {$ hashref -> {params}}; eğer (tanımlanmış $ gönderim {$ türü}) {$ Dispatch {$ Type} -> (@ args); son anahtar; } Baskı Stddout Katıl ('', "IRC_ $ TÜRÜ:", @args), "\ n"; }} alt irc_ping {$ sunucum = vardiya; Yazdır $ çorap "Pong: $ Sunucu \ r \ n"; 1 döndürme; } SUB IRC_001 {$ _ \ n'ye bağlı "Baskı stdout"; $ çorap "$ kanalına katılın \ r \ n"; 1 döndürme; } alt irc_public {benim ($ kim, $ nerede, $ ne) = @_; "$ WHO -> $ 'ı yazdırın -> $' n \ n"; 1 döndürme; } Gereksinimler: · Perl


Parse :: IRC İlgili Yazılım

Makrome

Filtre zamanı özyinelemeli makro çerçeve, Perl'in "LISP" olmasını önleyen özelliği sağlayan ...

1,233

İndirmek