Lösung mit mehreren Prozessen V

motdserver.pl

sub return_text { my ($handle, $text) = @_; print $handle "-" . $text . "\n"; } sub finish_text { my ($handle) = @_; print $handle "OK\n"; } sub return_error { my ($handle, $msg) = @_; print $handle "FAILED: $msg\n"; }

Bei Netzwerk-Protokollen empfiehlt es sich,

klar Fehlermeldungen von regulären Ausgaben zu unterscheiden,

das Ende einer mehrzeiligen Antwort speziell zu markieren (analog zu ``over'' beim Funken) und

klar zwischen dem Fragenden (Klient) und dem Antwortenden (Diensteanbieter) zu unterscheiden, wobei jeder den anderen ``ausreden'' läßt, bevor etwas Neues gesagt wird.

Diese Techniken erleichtern es zu verhindern, daß Klienten und Diensteanbieter sich gegenseitig blockieren.