Lösung mit einem Prozeß II

chatserver.pl

#!/usr/local/bin/perl -T use strict; use warnings; use Getopt::Std; use IO::Select; use IO::Socket; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname [-p port]\n"; my %opts = (); getopts('p:', \%opts); my $port = 11013; $port = $opts{p} if defined($opts{p}); die $usage unless @ARGV == 0; my $socket = new IO::Socket::INET ( LocalPort => $port, Type => SOCK_STREAM, Listen => SOMAXCONN, Reuse => 1, ); die "Unable to setup socket: $!\n" unless defined $socket;

Gestartet wird der Dämon nur ggf. mit der Angabe einer Portnummer, unter der sich die jeweilige Gesprächsrunde treffen soll.