|
#!/usr/local/bin/perl -T use strict; use warnings; use Getopt::Std; use IO::Dir; use IO::File; use IO::Socket; 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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |