Lösung mit mehreren Prozessen

motdserver.pl

#!/usr/local/bin/perl -Tw use Getopt::Std; use IO::Dir; use IO::File; use IO::Socket; use strict; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname [-p port] messagedir\n"; my %opts = (); getopts('p:', \%opts); my $port = 11014; $port = $opts{'p'} if defined($opts{'p'}); die $usage unless @ARGV == 1; my $dir = shift @ARGV; die "$cmdname: no such directory: $dir\n" unless -d $dir; tie my %dir, 'IO::Dir', $dir;

Dieser einfache Netzdienst bietet die Möglichkeit, eine Reihe von Tagesmeldungen, die alle in einem gegebenen Verzeichnis liegen, abzurufen.

Mit dem Modul IO::Dir ist es möglich, ein Verzeichnis als ein assoziatives Array zu betrachten.

	Dieser einfache Netzdienst bietet die Möglichkeit, eine Reihe von Tagesmeldungen, die alle in einem gegebenen Verzeichnis liegen, abzurufen.
	Mit dem Modul `IO::Dir` ist es möglich, ein Verzeichnis als ein assoziatives Array zu betrachten.