net :: ewtoo :: 봇 NET :: EWTOO :: BOT는 화자 로봇 클라이언트 모듈입니다.
지금 다운로드

net :: ewtoo :: 봇 순위 및 요약

net :: ewtoo :: 봇 태그

Perl 모듈 로봇 연설자 화자 로봇 Ewtoo 봇 ewtoo.

net :: ewtoo :: 봇 설명

net :: eWTOO :: Bot은 화자 로봇 클라이언트 모듈입니다. net :: ewtoo :: bot는 ewtoo 호환 토기 로봇 클라이언트 모듈입니다. Synopsis는 Net :: eWTOO :: Bot; 내 $ name = 'Jodbot'; MY $ BOT = NEW NET :: EWTOO :: BOT; $ BOT-> add_trigger ( "(. +?)는 '$ name, (. +?)', handle_say); $ 봇 -> set_delay ( '범위', 0, 5); $ BOT-> 로그인 ($ 호스트, $ 포트, $ 사용자, $ PASS); $ bot-> say ( "안녕하세요! 나는 $ name lobot!"); $ 봇 -> 듣기 (); $ 봇 -> 로그 아웃 (); 출구; sub handle_say {my ($ sayer, $ say) = @_; if ($ eq 'hello') {$ bot-> 왜 "왜 hello $ sayer!"); } Elsif ($ atq '멀리 가십시오') {$ bot-> ( "OK, BYE!"); $ 봇 -> 로그 아웃 (); } 반품; } 메서드 $ BOT-> 로그인 ($ host, $ 포트, $ 사용자, $ PASS); 이렇게하면 $ host : $ USER 및 $ PASS를 사용하여 $ 호스트 : $ PORT TOWNER로 봇을 기록합니다. 봇은 MOTDS 및 저장된 메시지를 무시하기 위해 추가 캐리지 리턴을 보내드립니다. 정의 된 로그인 서브 루틴 이이 시점에서 실행됩니다. $ BOT-> 로그 아웃 ($ 메시지); "종료"명령 (MBA4와의 호환성을 위해 대문자)을 보내고 소켓을 닫습니다. 정의 된 로그 아웃 서브 루틴은 미리 실행됩니다. $ 메시지가 정의되면 BOT는 $ 메시지를 인수로 "mquit"명령을 호출합니다. $ 봇 -> set_delay ($ type, $ lower, $ 상단);이 방법은 메소드의 호출과 실행 사이의 지연을 설정합니다. 이것은 다른 사용자와의 통신 중에 현실적인 지연을 추가하는 데 유용합니다. $ 유형은 '고정'이 될 수 있습니다.이 경우 지연은 항상 $ lower (초)이고 $ 상단은 무시되거나 '범위'를 무시하거나 '범위'가 지연이 $ Lower와 $ 사이의 임의의 초 수입니다. 높은. $ BOT-> add_trigger ($ 패턴, $ 콜백);이 메소드는 listen () 메소드에서 사용하는 트리거를 추가합니다. $ 패턴과 일치하는 입력 줄이 수신되면 $ 콜백이 실행됩니다. $ 콜백에 대한 인수는 일반 Perl Regexp (후행 및 주요 슬래시가없는) 패턴으로 정의한 패턴에서 정의한 캡처 된 하위 문자열입니다. $ bot-> delete_trigger ($ 패턴); 트리거 목록에서 $ 패턴과 관련된 트리거를 제거합니다. $ BOT-> DEF_LOGIN ($ 콜백); $ BOT-> DEF_LOGOUT ($ 콜백). $ BOT-> DEF_LOGOUT ($ 콜백) 이후에 실행될 $ 콜백으로 서브 루틴을 지정합니다. 봇 로그 전에 실행될 $ 콜백으로 서브 루틴을 지정합니다. 밖. $ 봇 -> 듣기 ($ verbose); 듣기 ()는 화자에서 입력을 읽고 필요에 따라 트리거를 실행합니다. $ verbose가 1로 설정되면 수신 된 모든 입력이 stdout으로 인쇄됩니다. $ 봇 -> break (); $ break () yiving () 메소드를 완료하고 반환하는 플래그를 설정합니다. $ 봇 -> ($ str); 봇이 $ str을 말하는 편리한 기능. $ 봇 -> ($ str); 봇을 생각하는 편의 기능은 $ str을 생각합니다. $ Bot-> Shout ($ str); 봇이 $ str을 외치는 편의 기능. $ 봇 -> to sern ($ 사용자, $ str); 봇이 $ STR에 $ STR에 알리는 편의 기능. $ bot-> 명령 ($ cmd); 임의의 talker 명령을 호출 할 수 있습니다. $ 봇 -> getLine (); 화자에서 한 줄의 입력 한 줄을 읽습니다. 요구 사항 : · Perl.

net :: ewtoo :: 봇 관련 소프트웨어