POE:: Teil:: Vollmacht:: TCP ist eine vereinfachte TCP-Vollmacht.

SYNOPSE

POE qw verwenden (Teil:: Vollmacht:: TCP);
POE:: Teil:: Vollmacht:: TCP->new
(Alias => „ProxyServerSessionAlias“,
Backbord=> $local_server_port,
OrigPort => $remote_server_port,
OrigAddress => $remote_server_host,
DataFromClient => &data_from_client_handler,
DataFromServer => &data_from_server_handler,
);


# erhält mit den Daten gerufen, die vom Server übermittelt werden.
# nannte Innere pro die Klient verbundene Sitzung, die von PoCo: erstellt wurde: Server:: TCP
Vordata_from_server_handler {
mein $server_data = Schiebung;
# Erscheinen, das anderes Sitzunginfo besonders pro Vollmachtsitzunginfo erreicht
};

# erhält mit den Daten gerufen, die vom Fernklienten übermittelt werden
#
Vordata_from_client_handler {
mein $server_data = Schiebung;
};

# Erscheinen, das anderes Sitzunginfo besonders pro Vollmachtsitzunginfo erreicht
# hob HAUFWERK-Variablen auf:

$heap-> {Selbst} = Vollmachtnachricht/Fall var-Durcheinander
$heap-> {Selbst} - >losta Material fügen Unterlagen hinzu
[pro Anschluß eine tun]
BEISPIEL ^
Vorsichtshinweise verwenden;
strenges verwenden;
Diagnosen verwenden;
POE verwenden;
Gebrauch POE:: Filter:: Strom;
Gebrauch POE:: Filter:: Leitung;
Gebrauch POE:: Teil:: Vollmacht:: TCP;
$|++;

POE:: Teil:: Vollmacht:: TCP->new
(Alias => „ProxyServerSessionAlias“,
Backbord=> 4000,
OrigPort => 5000,
OrigAddress => „localhost“,
DataFromClient => Unterseeboot {Druck „vom Klienten: “, Schiebung (), „N“;},
DataFromServer => Unterseeboot {Druck „vom Server: “, Schiebung (), „N“;},
RemoteClientFilter => „POE:: Filter:: Strom“,
RemoteServerOutputFilter => „POE:: Filter:: Strom“,
RemoteServerInputFilter => „POE:: Filter:: Strom“
);

$poe_kernel->run ();
herausnehmen 0;