Erzeugung der Indizes

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

createmaildb.pl
#!/usr/local/bin/perl -w

use DB_File;
use IO::File;
use Fcntl;
use strict;

my $sep = ":"; # separator in keyword index

my $cmdname = $0; $cmdname =~ s{.*/}{};
my $usage = "Usage: $cmdname\n";
die $usage unless @ARGV == 0;

my %pwnames = (); # set by load_passwd, used by load_aliases
my @aliases = (load_passwd(), load_aliases());

my %fullname;
tie(%fullname, 'DB_File', "byFullName.db",
   O_RDWR|O_CREAT|O_TRUNC, 0660, $DB_HASH);
foreach my $alias (@aliases) {
   $fullname{$alias->{fullname}} = $alias->{email};
}
untie %fullname;

*Sowohl load_passwd() als auch load_aliases() liefern Einträge mit jeweils einem vollen Namen (Komponente fullname) und der zugehörigen E-Mail-Adresse (Komponente email).
 
*Die Tabelle byFullname.db läßt sich direkt daraus generieren.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003