تحليل :: IRC. محلل بروتوكول IRC
التحميل الان

تحليل :: IRC. الترتيب والملخص

تحليل :: IRC. العلامات

IRC. الوحدة النمطية بيرل بيرل محلل المحللون IRC.

تحليل :: IRC. وصف

محلل بروتوكول IRC PARSE :: IRC هي وحدة بيرل توفر وسيلة مريحة لخطوط تحليل النص المطابقة لبروتوكول IRC (انظر RFC1459 أو RFC2812). الاستخدام الصارم: استخدم صارما؛ استخدم Parse :: IRC؛ # واجهة وظيفية لي $ hashref = parse_irc (irc_string)؛ # OO واجهة بلدي IRC_PARSER = PARSE :: IRC-> جديد ()؛ بلدي hashref = $ hashref = $ IRC_PARSER-> تحليل (IRC_STRING)؛ باستخدام تحليل :: IRC في بوت IRC بسيط: # بسيطة IRC Bot باستخدام تحليل :: IRC استخدام صارمة؛ استخدام IO :: المقبس؛ استخدم Parse :: IRC؛ بلدي Parser $ = تحليل :: IRC-> جديد (عام => 1)؛ My Respatch = ('Ping' => \ Irc_ping، '001' => \ Irc_001، "العامة" => \ Irc_Public)؛ # الخادم للاتصال وتفاصيلنا. خادم $ $ = "irc.perl.moo"؛ بلدي $ نيك = "parseirc $$"؛ بلدي $ تسجيل الدخول = "Simple_bot"؛ # القناة التي ستنضم بها الروبوت. بلدي قناة $ = "# irc.pm"؛ # الاتصال بخادم IRC. بلدي جورب $ = جديد io :: المقبس :: iNet (peeraddr => $ server، peerport => 6667، proto => 'tcp') أو يموت "لا يمكن الاتصال \ n"؛ # تسجيل الدخول إلى الخادم. طباعة $ جورب "نيك $ نيك \ r \ n"؛ طباعة $ جورب "user $ تسجيل الدخول 8 *: perl irc hacks روبوت \ r \ n"؛ # الحفاظ على خطوط القراءة من الخادم. بينما (مدخلات $ =) {$ المدخلات = ~ s / \ r \ n // g؛ بلدي mashref = parser- $ parser-> تحليل (إدخال $)؛ التبديل: {بلدي نوع $ = LC $ hashref -> {command}؛ بلدي @ myargs؛ دفع @ Args، $ hashref -> {prefix} إذا $ hashref -> {prefix}؛ دفع @ Args، @ {$ hashref -> {params}}؛ إذا (Defined $ dispatch {$ type}) {$ dispatch {$ type} -> (@ @ args)؛ التبديل الأخير } طباعة Stdout الانضمام (''، "IRC_ $ نوع:"، @ Args)، "\ n"؛ }} sub irc_ping {بلدي خادم $ = التحول؛ طباعة $ جورب "بونغ: $ خادم \ r \ n"؛ العودة 1 } sub irc_001 {print stdout "متصلة $ _ \ n"؛ طباعة $ جورب "انضم $ قناة \ r \ n"؛ العودة 1 } الفرعية IRC_PUBLIC {MY ($ WHO، $ حيث، $ ماذا) = @؛ طباعة "$ WHO -> $ حيث -> $ what \ n"؛ العودة 1 } متطلبات: perl.

تحليل :: IRC. برامج ذات صلة