net :: socket :: nonblock.

NET :: SOCKET :: NONBLOCK은 쉬운 생성 멀티 소켓 싱글 스레드 응용 프로그램을위한 PERL 확장자입니다.
지금 다운로드

net :: socket :: nonblock. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Daniel Podolsky
  • 게시자 웹사이트:
  • http://search.cpan.org/~tpaba/Net-Socket-NonBlock-0.15/NonBlock.pm

net :: socket :: nonblock. 태그


net :: socket :: nonblock. 설명

net :: socket :: nonblock은 쉬운 생성 멀티 소켓 싱글 스레드 응용 프로그램을위한 Perl 확장자입니다. net :: socket :: nonblock은 쉬운 작성 멀티 소켓 싱글 스레드 응용 프로그램, 특히 포크가없는 TCP Servers.Synopsis # TCP 포트 전달자가 Win32에서 작동합니다! 엄격한 사용; net :: socket :: nonblock; $ | ++; MY $ localport = Shift 또는 DIE "사용 : $ 0 n"; MY $ REMOTEHOST = SHIFT 또는 DIE "사용 : $ 0 N"; MY $ SOCKNEST = NET :: SOCKET-> NONBLOCK :: NEST-> NEW (select => 0.1, silencet => 0, debug => $ ^ w, buffsize => 10240) 또는 다이 "소켓 둥지를 만드는 오류 : $ @N"; $ socknest-> listen (localport => $ localport, proto => 'tcp', accept => newconnection, silencet => 0, #clientsst => 10, listen => 10) 또는 죽을 수 없습니다 " $ localport ': $ @ n "; 내 % conpool = (); while ($ socknest-> io ()) {my $ pstr = ''; 내 $ clnsock = undef; 내 $ srvsock = undef; while (($ clnsock, $ srvsock) = 각 (% conpool)) {my $ clientId = sprintf ( ".15s : % - 5.5s", $ socknest-> peeraddr ($ clnsock), $ socknest-> peerport ( $ clnsock)); 내 $ str = undef; while ($ str = $ socknest-> 읽기 ($ str)) {$ PSTR. = "클라이언트에서 $ CLIENID".SAFERST ($ str). "n"; $ srvsock-> puts ($ str); }; if (! 정의 ($ str)) {$ PSTR. = "$ CLIENID 클라이언트 CRECINGN"; $ socknest-> 닫기 ($ clnsock); # 이전 스타일 메소드 $ srvsock-> close (); # oo-style 메소드 호출 삭제 ($ conpool {$ clnsock}); 다음; }; while (($ str = $ srvsock-> read ()) 길이 ($ str) {$ PSTR. = "server에서 $ clientId".SafeRStr ($ str) "n"; $ socknest-> puts ($ clnsock, $ str); }; if (pedmed ($ str)) {$ PSTR. = "$ CLIENID SERVER CRIENTN"; $ socknest-> 닫기 ($ clnsock); $ srvsock-> close (); 삭제 ($ conpool {$ clnsock}); 다음; }; }; if (length ($ PSTR)) {localtime () "n". $ pstr; }; }; Sub NewConnection {My ($ clnsock) = 이동 또는 반환; $ conpool {$ clnsock} = $ socknest-> connect (peeraddr => $ remotehost, proto => 'tcp'); if (! $ conpool {$ clnsock}) {$ REMOTEHOST '에 연결할 수 없습니다 : $ @ n "; $ clnsock-> close (); 삭제 ($ conpool {$ clnsock}); 반품; }; 반환 1; }; Sub SafestR {My $ str = Shiping 또는 Return '! Undef!'; $ str = ~ s {()} {sprintf ( "\ x % 2.2x", Ord ($ 1))} gsex; 반환 $ str; }; 요구 사항 : · Perl 요구 사항 : · Perl.


net :: socket :: nonblock. 관련 소프트웨어

HTML :: DEBUG.

HTML :: DEBUG는 HTML의 디스플레이에 대한 변수 및 쿼리 디버깅 정보의 출력을 가능하게하는 PERL 클래스입니다. ...

221

다운로드

DBD :: WTSPRITE.

DBD :: WTSPRITE는 DBI 용 PERL 확장자이며 플랫 파일을 통해 데이터베이스 eDrumulation을 제공합니다. ...

142

다운로드

회사 소개