صافي :: EWTOO :: BOT Net :: EWTOO :: BOT هو وحدة عميل Robot Talker.
التحميل الان

صافي :: EWTOO :: BOT الترتيب والملخص

صافي :: EWTOO :: BOT العلامات

الوحدة النمطية بيرل إنسان آلي المتكلم المتكلم الروبوت بوت ايتو EWTOO.

صافي :: EWTOO :: BOT وصف

Net :: EWTOO :: BOT هو وحدة عميل Robot Talker. NET :: EWTOO :: BOT هو تطبيق عميل روبوت متوافق مع EWTOO.Synopsis استخدام Net :: EWTOO :: BOT؛ اسمي $ = 'jodbot'؛ بلدي $ Bot = NEW NET :: EWTOO :: BOT؛ BOT-> Add_Trigger ("(. +؟) يقول" اسم $، (. +؟) ""، handle_say)؛ $ bot-> set_delay ('المدى'، 0، 5)؛ $ Bot-> تسجيل الدخول (مضيف $، $ Port، المستخدم $، $ Pass)؛ $ Bot-> قل ("مرحبا! أنا روبوت الاسم $!")؛ $ Bot-> الاستماع ()؛ BOT-> تسجيل الخروج ()؛ خروج؛ Sub Handle_say {My ($ Sayer، $ قال) = @؛ إذا كان (قال $ "Hello ') {$ Bot-> قل (" لماذا مرحبا $ Sayer! ")؛ } elsif ($ قال q "يرجى الذهاب بعيدا") {$ bot-> يقول ("حسنا، وداعا!")؛ BOT-> تسجيل الخروج ()؛ } إرجاع؛ } طرق $ Bot-> تسجيل الدخول (مضيف $ المضيف، $ Port، USER، $ PASS)؛ يسجل هذا الروبوت في المضيف $: Talter Talker $ باستخدام $ المستخدم و $ تمرير $. سوف يرسل الروبوت إرجاع حفل إضافي لتجاوز MOTDS والرسائل المحفوظة. انسحاب روتين تسجيل الدخول المحدد في هذه المرحلة. $ Bot-> Logout (رسالة $)؛ يرسل الأمر "Quit" (في عواصم متوافقة مع MBA4)، ويغلق المقبس. يتم تنفيذ أي فرعي تسجيل خروج محدد مسبقا مسبقا. إذا تم تعريف رسالة $، فإن BOT يستدعي الأمر "MQUIT" مع رسالة $ كوسيطة لها. $ BOT-> SET_DELAY ($ نوع، $ أقل، أعلى مستوى)؛ هذه الطريقة تحدد التأخير بين استدعاء الأسلوب وتنفيذها. هذا مفيد لإضافة تأخير واقعي أثناء الاتصالات مع مستخدم آخر. يمكن أن يكون $ نوع إما "ثابت"، وفي هذه الحالة يكون التأخير دائما أقل دولارا (بالثواني) ويتم تجاهل أعلى أعلى من دولار، أو "المدى"، وفي هذه الحالة سيكون التأخير عدد عشوائي من الثواني بين أقل و دولار العلوي. $ BOT-> Add_Trigger (نمط $، رد الاتصال $؛ هذه الطريقة تضيف المشغل المستخدمة من قبل الأسلوب الاستماع (). عند استلام خط الإدخال الذي يطابق نمط $، يتم تنفيذ اتصال $. تعد الحجج الموجودة على اتصال $ أي فرعية تم التقاطها التي تحددها في النمط الخاص بك، والذي يعد Perl RegexP منتظم (بدون خطوط زائدة وقيادة). $ bot-> delete_trigger (نمط $)؛ يزيل الزناد المرتبط بنمط $ من قائمة المشغل. BOT-> DEF_LOGIN (رد فعل اتصال)؛ يحدد روتين فرعي مع اتصال $ سيتم تنفيذه بعد سجلات BOT. $ Bot-> Def_logout (Coadback $)؛ يحدد روتين فرعي مع اتصال $ سيتم تنفيذه قبل سجلات BOT خارج. $ Bot-> الاستماع ($ verbose)؛ يستمع () يقرأ المدخلات من المتكلم وينفذ المشغلات حسب الضرورة. إذا تم تعيين Verbose $ إلى 1، فسيتم طباعة أي إدخال مستلم إلى Stdout. $ Bot-> Break ()؛ استراحة $ () يحدد العلم الذي يحكي طريقة الاستماع () لإنهاء والعودة. BOT-> Say ($ str)؛ وظيفة الراحة التي تجعل الروبوت يقول $ str. $ Bot-> التفكير ($ str)؛ وظيفة الراحة التي تجعل بوت التفكير $ str. BOT-> الصراخ ($ str)؛ وظيفة الراحة التي تجعل الروبوت يصرخ $ str. $ Bot-> أخبر (مستخدم $، $ str)؛ وظيفة الراحة التي تجعل الروبوت يحكي $ str إلى مستخدم $. $ BOT-> أمر ($ cmd)؛ يسمح بدعوة أمر التحدث التعسفي. $ bot-> getline ()؛ يقرأ سطر واحد من المدخلات من المتكلم. متطلبات: perl.

صافي :: EWTOO :: BOT برامج ذات صلة