PoE :: Componente :: Lightspeed PoE :: Componente :: Lightspeed - Los motivos de la IKC2.
Descargar ahora

PoE :: Componente :: Lightspeed Clasificación y resumen

PoE :: Componente :: Lightspeed Etiquetas

Módulo perl componente Poe Componente poe rompecabezas IKC2

PoE :: Componente :: Lightspeed Descripción

PoE :: Componente :: Lightspeed - Los terrenos de la IKC2. PoE :: Componente :: Lightspeed - Los terrenos de rompecabezas de IKC2.Synopsis usan POE; Use PoE :: Componente :: Lightspeed :: Cliente; # Crear una nueva sesión de cliente Poe :: Componente :: Lightspeed :: Client-> Spawn ('kernel' => 'testbox', 'dirección' => '192.168.1.100',); # Crear nuestra propia sesión para comunicarse con Lightspeed Poe :: Session-> Crear (inline_states => {_start => sub {$ _ -> alias_set ('mysession'); # sí, una mejor manera de "monitorear" Lightspeed está en camino ... # Por ahora, simplemente dale a Poe un tiempo para conectar $ _ -> retratación_set ('do_stuff', 5); # demostración de la pirata de piratería de lightspeed $ _ -> retard_set (' confundido, 1);}, 'do_stuff' => sub {# perfecto $ _ -> Publicar ('PoE: // Owbox / MySession / Ping', '¿Cómo estás?'); # error # $ _ -> Publicar ('PoE: // Otherbox / Mysession', 'Ping', '¿Cómo estás?');}, 'Pong' => sub {impresión "recibió 'pong' de". $ _ -> ID. "N";}, 'confundido' => sub {# es esta una sesión de lightspeed? Si ($ _ -> is_lightspeed) {# yay! Imprimir "Solicitud de luz de luz recibida". ";} otra cosa {impresión" recibió una solicitud regular de: '";} Imprimir $ _ -> ID."' Estado '". $ _ ."' Archivo '". $ _ . "'Línea'". $ _ . "'N";},); -------- Usa PoE; Use PoE :: Componente :: Lightspeed :: Server; # Crear una nueva sesión de servidor Poe :: Componente :: LightSpeed ​​:: Server-> Spawn ('Kernel' => 'OGUEBOX', 'Dirección' => '192.168.1.100',); # Crear nuestra propia sesión para escuchar las solicitudes de Lightspeed Poe :: Session-> Crear (inline_states => {_start => sub {$ _ -> alias_set ('mysession');}, 'ping' => sub {impresión "recibió 'ping' de". $ _ -> id. "->". $ _ . "N"; # perfecto $ _ -> publicación ($ _ , 'pong', 'wassup!'); $ _ -> publicación ($ _ -> id, 'pong', 'wazzup!'); # incorrecto # $ _ -> publicar ("$ _ ", 'Ping', 'Wassup!'); # Demostración de la hackería de luz de luz $ _ -> Publicar ('Poe: // Testbox / Mysession / confundido', ')) },},); Requisitos: · Perlwhat's NUEVO en esta versión: · Soporte POE-0.3101 agregado · Versiones de los módulos golpeados para que el indexador de pausa no se queje de ser una versión más baja.

PoE :: Componente :: Lightspeed Software relacionado