Net :: ewtoo :: bot NET :: EWTOO :: Bot, bir konuşmacı robot istemci modülüdür.
Şimdi İndirin

Net :: ewtoo :: bot Sıralama ve Özet

Net :: ewtoo :: bot Etiketler

Perl modülü robot konuşmacı konuşmacı robotu Eh, bot Ewtoo

Net :: ewtoo :: bot Açıklama

Net :: Ewtoo :: Bot konuşkan robot istemci modülüdür. Net :: Ewtoo :: Bot bir Ewtoo uyumlu konuşmacı robot istemci module.SYNOPSIS kullanımı Net :: Ewtoo olduğu :: Bot; Benim $ ADI = 'jodbot'; Benim $ bot yeni Net :: Ewtoo :: Bot =; $ İstasyonunun alt kısmına> add_trigger ( "(+) diyor.? '$ ADI (+).?'", Handle_say); $ İstasyonunun alt kısmına> set_delay ( 'aralık', 0, 5); $ İstasyonunun alt kısmına> giriş ($ konak $, liman, $ user, $ pass); $ İstasyonunun alt kısmına> say ( "Merhaba ben $ ADI robot değilim!"); $ İstasyonunun alt kısmına>) (dinle; $ İstasyonunun alt kısmına> çıkış (); çıkış; alt handle_say {benim ($ sayer $, söz konusu) = @_; eğer {$ istasyonunun alt kısmına> diyelim ki ($ eq 'merhaba' dedi) ( "Neden merhaba $ sayer!"); } Elsif ( "Tamam, güle!") {$ İstasyonunun alt kısmına> say ($ eq 'lütfen git' dedi); $ İstasyonunun alt kısmına> çıkış (); } dönüş; $ Kullanıcı ve $ geçişi kullanarak $ liman konuşmacı:;} YÖNTEMLER $ istasyonunun alt kısmına> giriş ($ konak $, liman, $ user, $ pass) Bu $ konak içine bot kaydeder. Bot baypas MOTDs için fazladan satırbaşları gönderecek ve kaydedilen messages.Any giriş altprogramciklar bu noktada yürütülür tanımladı. $ İstasyonunun alt kısmına> çıkış ($ mesaj), (MBA4 uyumlu olacak başkentlerinde) "QUIT" komutunu gönderir ve yuva kapatır. Herhangi çıkış tanımlanmış alt programlar önceden yürütülür. $ Message tanımlanırsa, bot onun argüman olarak $ mesajla "mquit" komutunu çağırır. $ İstasyonunun alt kısmına> set_delay ($ tür, $ düşük $ üst) Bu yöntem, bir yöntemin arama ve yürütme arasındaki gecikme ayarlar. Bu, başka bir kullanıcı ile iletişim sırasında gerçekçi bir gecikme eklemek için yararlıdır. $ Tür ki bu durumda gecikme zaman gecikmesi düşük $ ve $ saniye arasında bir rasgele sayı olacak ve bu durumda daha düşük (saniye olarak) $ ve üst $ göz ardı edilir, ya da 'aralığı' olup, 'sabit' da olabilir üst. $ İstasyonunun alt kısmına> add_trigger ($ desen, $ geri arama); Bu yöntem dinlemek () metodu ile kullanılan bir tetikleyici ekler. girdi satırı $ desen eşleştiğini alındığında, $ geri arama yürütülür. $ Geri arama için argümanlar sen (sondaki ve lider eğik çizgi olmadan) düzenli perl regexp'in senin desen, tanımladığınız herhangi şablonu ile eşleştirmek vardır. $ İstasyonunun alt kısmına> delete_trigger ($ deseni); tetik listeden $ desen ile ilişkili tetiği kaldırır. $ İstasyonunun alt kısmına> def_login ($ geri arama); belirtir $ istasyonunun alt kısmına> def_logout ($ callback'inde) 'de bot günlükleri sonra infaz edilecek $ geri arama ile bir altprogram;. Belirtir bot günlükleri önce çalıştırılacaktır $ geri arama ile bir altprogram dışarı. $ İstasyonunun alt kısmına> (ayrıntılı $) dinlemek; dinlemek () gerektiği şekilde konuşan ve yürütür tetikleyiciler giriş okur. $ Ayrıntılı 1 olarak ayarlanırsa, o zaman alınan herhangi bir giriş STDOUT basılır. $ İstasyonunun alt kısmına> kırılma (); $ sonu () bitirmek ve iade dinlemek () yöntemini anlatan bir işaret oluşturur. $ İstasyonunun alt kısmına> diyelim ki ($ str); bot $ str dedirten bir kolaylık fonksiyonu. $ İstasyonunun alt kısmına> ($ str) düşünüyorum; bot $ str düşündürüyor bir kolaylık işlevi. $ İstasyonunun alt kısmına> not ($ str); bot not $ str yapan bir kolaylık fonksiyonu. Bot $ kullanıcıya $ str anlatmak yapar bir kolaylık fonksiyonu; $ istasyonunun alt kısmına> ($ kullanıcıyı $ str) söyle. $ İstasyonunun alt kısmına> komutu ($ cmd); keyfi bir konuşmacı komutunun arama verir. $ İstasyonunun alt kısmına> get (); konuşmacı girişi tek bir satır okur. Gereksinimler: · Perl

Net :: ewtoo :: bot İlgili Yazılım