El POE:: Componente:: Apoderado:: TCP es un apoderado de TCP simplificado.

SINOPSIS

use POE qw (Componente:: Apoderado:: TCP);
POE:: Componente:: Apoderado:: TCP-> nuevo
(Alias => "ProxyServerSessionAlias",
Puerta => $local_server_port,
OrigPort => $remote_server_port,
OrigAddress => $remote_server_host,
DataFromClient => &data_from_client_handler,
DataFromServer => &data_from_server_handler,
);


# es llamado con datos pasados del servidor.
# llamado dentro el por cliente conectó la sesión creada por PoCo:: Servidor:: TCP
suscripción data_from_server_handler {
mi $server_data = cambio;
# espectáculo obteniendo otra información de sesión esp por información de sesión por poderes
};

# es llamado con datos pasados del cliente remoto
#
suscripción data_from_client_handler {
mi $server_data = cambio;
};

# espectáculo obteniendo otra información de sesión esp por información de sesión por poderes
# Variables de MONTÓN reservadas:

El $heap-> {mí} = Apoderado se opone / caso var picadillo
El $heap-> {mí}-> losta materia añade la documentación
[haga el por de conexión]
EJEMPLO ^
use advertencias;
use estricto;
use el diagnóstico;
use POE;
use POE:: Filtro:: Corriente;
use POE:: Filtro:: Línea;
use POE:: Componente:: Apoderado:: TCP;
$|++;

POE:: Componente:: Apoderado:: TCP-> nuevo
(Alias => "ProxyServerSessionAlias",
Puerta => 4000,
OrigPort => 5000,
OrigAddress => "localhost",
DataFromClient => suscripción {imprimen "del cliente:", cambio (), "n";},
DataFromServer => suscripción {imprimen "del servidor:", cambio (), "n";},
RemoteClientFilter => "POE:: Filtro:: Corriente",
RemoteServerOutputFilter => "POE:: Filtro:: Corriente",
RemoteServerInputFilter => "POE:: Filtro:: Corriente"
);

$poe_kernel-> ejecutado ();
salida 0;