पार्स :: आईआरसी आईआरसी प्रोटोकॉल के लिए एक पार्सर
अब डाउनलोड करो

पार्स :: आईआरसी रैंकिंग और सारांश

पार्स :: आईआरसी टैग

आईआरसी पर्ल मॉड्यूल पर्ल पार्सर आईआरसी पार्सर

पार्स :: आईआरसी विवरण

आईआरसी प्रोटोकॉल के लिए एक पार्सर पार्स :: आईआरसी एक पर्ल मॉड्यूल है जो आईआरसी प्रोटोकॉल के अनुरूप पाठ की पार्सिंग लाइनों का एक सुविधाजनक तरीका प्रदान करता है (आरएफसी 1459 या आरएफसी 2812 देखें)। सिंसोप्सिस सामान्य उपयोग: सख्त उपयोग करें; पार्स का प्रयोग करें :: आईआरसी; # कार्यात्मक इंटरफ़ेस मेरा $ hashref = parse_irc ($ irc_string); # ओओ इंटरफ़ेस मेरा $ irc_parser = पार्स :: आईआरसी-> नया (); मेरा $ hashref = $ irc_parser-> पार्स ($ irc_string); एक साधारण आईआरसी बॉट में पार्स :: आईआरसी का उपयोग: # एक साधारण आईआरसी बॉट पार्स का उपयोग :: आईआरसी सख्त उपयोग करें; IO :: सॉकेट का उपयोग करें; पार्स का प्रयोग करें :: आईआरसी; मेरा $ पार्सर = पार्स :: आईआरसी-> नया (सार्वजनिक => 1); मेरा% प्रेषण = ('पिंग' => \ irc_ping, '001' => \ irc_001, 'सार्वजनिक' => \ irc_public); # सर्वर से कनेक्ट करने के लिए सर्वर और हमारे विवरण। मेरा $ सर्वर = "irc.perl.moo"; मेरा $ निक = "पारसी $$"; मेरा $ लॉगिन = "simple_bot"; # वह चैनल जो बॉट में शामिल हो जाएगा। मेरा $ चैनल = "# irc.pm"; # आईआरसी सर्वर से कनेक्ट करें। मेरे $ सॉक = न्यू आईओ :: सॉकेट :: inet (peeraddr => $ सर्वर, peerport => 6667, proto => 'tcp') या मरो "कनेक्ट नहीं कर सकता \ n"; # सर्वर पर लॉग ऑन करें। प्रिंट $ सॉक "निक $ निक \ आर \ n"; प्रिंट $ सॉक "उपयोगकर्ता $ लॉगिन 8 *: पर्ल आईआरसी हैक्स रोबोट \ आर \ n"; # सर्वर से लाइनें पढ़ना जारी रखें। जबकि (मेरा $ इनपुट =) {$ इनपुट = ~ s / \ r \ n // g; मेरा $ hashref = $ पार्सर-> पार्स ($ इनपुट); स्विच: {मेरा $ टाइप = एलसी $ हाशरेफ -> {कमांड}; मेरे @args; धक्का @args, $ hashref -> {prefix} यदि $ hashref -> {उपसर्ग}; धक्का @args, @ {$ hashref -> {params}}; यदि (परिभाषित $ डिस्पैच {$ प्रकार}) {$ डिस्पैच {$ प्रकार} -> (@ args); अंतिम स्विच; } प्रिंट stdout में शामिल हों ('', "irc_ $ प्रकार:", @args), "\ n"; }} उप irc_ping {मेरा $ सर्वर = शिफ्ट; प्रिंट $ सॉक "पोंग: $ सर्वर \ आर \ n"; वापसी 1; } उप आईआरसी_ 001 {प्रिंट stdout "$ _ \ N"; प्रिंट $ सॉक "$ चैनल \ r \ n" में शामिल हों; वापसी 1; } उप irc_public {my ($ कौन, $ कहां, $ क्या) = @_; प्रिंट करें "$ कौन -> $ कहां -> $ क्या \ N"; वापसी 1; } आवश्यकताएं: · पर्ल

पार्स :: आईआरसी संबंधित सॉफ्टवेयर