Dotaz: Xinetd + Perl + ukonceni klienta

[kocour_easy]

Zdravim, zkousim si zprovoznit xinetd server napsany v perlu. Pro xinetd jsem si udelal testovanej konfigurak.
service test
{
disable = no
type = UNLISTED
wait = no
socket_type = stream
protocol = tcp
port = 2222
server = /root/test.pl
flags = NOLIBWRAP KEEPALIVE
}
V perl skriptu jsem inicializoval stdin a stdout. Cteni od klienta pres stdin a zapis klientovy na stdout pomoci systemovych funkci sysread a syswrite funguje. Nedokazal jsem najit nikde co se stane kdyz klient zavre spojeni pomoci funkci shutdown+close. Tedka to mam reseno pomoci funkce alarm.
sub get_alarmed {
exit;
}

local $SIG{ALRM} = \&get_alarmed;
alarm 10;
my $ret_len = sysread($s, $buf, 2);
alarm 0;
Podle dokumentace by mneli tyto funkce vracet undef pri nejake chybe. Moje otazka zni jestli je toto spravne a jak se da nastavit sysread+syswrite do neblockovaneho rezimu. Diky

Odpovědi

[pht]

je zbytecne delat handler s exitem na sigalarm, protoze implicitni handler dela exit

pokud klient provede close, dostanete na vstupu (sysread) EOF, tj. 0 prectenych znaku. na vystupu (syswrite) dostanete -1 a EPIPE, pripadne se vam dostavi i sigpipe, ktery je potreba osetrit. pokud nemate nejaky extra duvod k sys* funkcim (tj. nevadi vam bufferovani, perlio, atd), muzete pouzit normalni print, read nebo readline (alias <>).

nonblock muzete delat dvema zpusoby, a to bud klasicky pres fcntl (viz cookbook), nebo ve vetsine pripadu je plne dostacujici pouzivat select na normalnich (blokujicich) socketech. v druhem pripade bych dal prednost jiz hotovemu modulu IO::Select.