| Poe :: Componente :: LightSpeed Poe :: componente :: LightSpeed - os motivos de brincadeira de IKC2. |
Baixe Agora |
Poe :: Componente :: LightSpeed Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Apocalypse
- Site do editor:
- http://search.cpan.org/~apocal/
Poe :: Componente :: LightSpeed Tag
Poe :: Componente :: LightSpeed Descrição
Poe :: Componente :: LightSpeed - os motivos de Romping do IKC2. Poe :: Componente :: LightSpeed - Os motivos de brincadeira de IKC2.Synopsis usam Poe; Use PoE :: Componente :: LightSpeed :: Cliente; # Criar uma nova sessão de cliente Poe :: Componente :: LightSpeed :: Cliente-> Spawn ('Kernel' => 'Testbox', 'Endereço' => '192.168.1.100',); # Crie nossa própria sessão para se comunicar com Lightspeed Poe :: Session-> Create (Inline_States => {_start => sub {$ _ -> alias_set ('mysession'); # Sim, uma maneira melhor de "monitorar" LightSpeed está a caminho ... # Por enquanto, apenas dê tempo algum tempo para conectar $ _ -> atraso_set ('do_stuff', 5); # demonstração de hackery de velocidade $ _ -> Delay_set (' confuso ', 1);},' do_stuff '=> sub {# perfeito $ _ -> Post (' Poe: / / outroBox / mysession / ping ',' Como você está errado # $ $ _ -> Post ('PoE: OtherBox / MySession', 'Ping', 'Como você está?');}, 'Pong' => sub {print ". $ _ -> ID. "N";}, 'confused' => Sub {# é uma sessão de Lightspeed? If ($ _ -> is_lightspeed) {# yay! Imprimir "Recebido Solicitação de Lightspeed de: ' ";} else {print" recebeu pedido regular de: '";} Imprimir $ _ -> ID." Estado "". $ _ . "' arquivo '". $ _ . "" Linha "". $ _ . "'N";},); -------- use poe; Use PoE :: Componente :: LightSpeed :: Server; # Criar uma nova sessão de servidor Poe :: Componente :: LightSpeed :: Server-> Spawn ('Kernel' => 'Otherbox', 'Endereço' => '192.168.1.100',); # Crie nossa própria sessão para ouvir solicitações do LightSpeed Poe :: Session-> Create (inline_states => {_start => sub {$ _ -> alias_set ('mysession');}, 'ping' => sub {Imprimir "RECEBIDO 'PING' de" $ _ -> ID. "->". $ _ . "N"; # perfeito $ _ -> post ($ _ 'pong', 'wassup!'); $ _ -> post ($ _ -> id, 'pong', 'wazzup!'); # errado # $ _ -> post ("$ _ ", 'ping', 'wassup!'); # Demonstração de hackery de velocidade $ _ -> Post ('PoE: // Testbox / mysession / confuso', 'huh!' ;},},); Requisitos: · PerlWhat novo neste lançamento: · Adicionado suporte PoE-0.3101 · Versões Bumped de módulos para que o indexador de pausa não se queima de uma versão inferior
Poe :: Componente :: LightSpeed Software Relacionado