Lösung mit einem Prozeß V

chatserver.pl

sub new_participant { my $socket = shift; return unless defined (my $handle = $socket->accept); $read->add($handle); $write->add($handle); $handler{$handle} = { 'read' => \&handle_read, 'readline' => \&handle_line, 'write' => \&handle_write, 'ibuf' => "", 'obuf' => ["Your nickname, please.\r\n"], 'nickname' => "", 'handle' => $handle, }; }

new_participant wird von der zentralen Ereignis-Schleife aufgerufen als Bearbeiter für die zentrale Socket, wenn neue Verbindungen zum Chat-Dämon eröffnet werden.

Mit $read->add($handle) wird $handle in die Menge $read aufgenommen.

Folgende Komponenten gehören zu einer Verbindung in der Datenstruktur %handler:

read Bearbeiter für Eingaben.

readline Bearbeiter für vollständige Zeilen.

write wird aufgerufen, wenn eine Zeile ausgegeben werden kann.

ibuf Eingabepuffer.

obuf Ausgabepuffer (Zeiger auf eine Liste mit einzelnen Zeilen).

nickname Der Name des Teilnehmers.

handle Die offene Netzverbindung.