Lösung mit mehreren Prozessen

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000