파스 :: IRC. IRC 프로토콜 용 파서
지금 다운로드

파스 :: IRC. 순위 및 요약

파스 :: IRC. 태그

IRC. Perl 모듈 펄 파서 IRC 파서

파스 :: IRC. 설명

IRC 프로토콜을위한 파서 파스 :: IRC는 IRC 프로토콜을 준수하는 텍스트 라인을 편리하게 구문 분석하는 편리한 방법을 제공하는 Perl 모듈입니다 (RFC1459 또는 RFC2812 참조) .Synopsis 일반 사용법 : 엄격합니다. 분석 :: IRC; # 기능적 인터페이스 MY $ HASHREF = PARSE_IRC ($ IRC_STRING); # oo 인터페이스 내 $ IRC_Parser = 구문 분석 :: IRC-> new (); $ hashref = $ IRC_Parser-> 구문 분석 ($ IRC_String); 파스를 사용하여 간단한 IRC 봇에서 :: IRC : # 분석을 사용하는 간단한 IRC 봇 :: IRC 사용 엄격; IO :: 소켓을 사용하십시오; 분석 :: IRC; MY $ PARSER = PARSE :: IRC-> NEW (public => 1); MY % dispatch = ( 'ping'=> \ irc_ping, '001'=> \ IRC_001, 'public'=> \ erc_public); # 서버가 연결하고 자세한 내용. MY $ SERVER = "IRC.PERL.MOO"; 내 $ nick = "parseirc $$"; 내 $ login = "simple_bot"; # 봇이 가입 할 채널입니다. 내 $ 채널 = "# IRC.PM"; # IRC 서버에 연결하십시오. MY $ SOCK = NEW IO :: SOCKET :: INET (PEERADDR => $ SERVER, PEERPORT => 6667, PROTO => 'TCP') 또는 "Connect \ n"; # 서버에 로그온하십시오. $ sock "Nick $ nick \ r \ n"을 인쇄하십시오; 인쇄 $ sock "사용자 $ 로그인 8 * : Perl IRC 해킹 로봇 \ r \ n"; # 서버에서 라인을 읽으십시오. while (my $ input =) {$ INPUT = ~ s / \ r \ n // g; MY $ HASHREF = $ PARSER-> PARSE ($ 입력); 스위치 : {MY $ type = lc $ hashref -> {Command}; 내 @args; @args, $ hashref -> {prefix} perfix} -> {prefix}; 푸시 @ARGS, @ {$ hashref -> {params}}; if (정의 된 $ dispatch {$ type}) {$ dispatch {$ type} -> (@ args); 마지막 스위치; } stdout 조인 ( '', ""IRC_ $ type : ", @args),"\ n "; }} Sub IRC_ping {My $ Server = Shift; $ sock "pong : $ server \ r \ n"을 인쇄하십시오; 반환 1; } Sub IRC_001 {$ _ \ n "에 연결된 stdout"; $ sock "$ 채널 \ r \ n"을 인쇄하십시오; 반환 1; } Sub IRC_Public {내 ($ who, $ where, $ what) = @_; "$ who-to-> $ where -> $ what \ n"을 인쇄하십시오; 반환 1; } 요구 사항 : · Perl.

파스 :: IRC. 관련 소프트웨어