Das suchende CGI-Skript IV

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

email.pl
my %fullname; my %keyword;
tie(%fullname, 'DB_File', "$dbdir/byFullName.db", O_RDONLY);
tie(%keyword, 'DB_File', "$dbdir/byKey.db", O_RDONLY);

my $key = $p->param('keys');
$key =~ s/,//g;
$key =~ s/\s+/ /g;
$key =~ s/^\s+//;
$key =~ s/\s+$//;
$key = umlaute2asc($key);
my @names = ();
if (defined $keyword{$key}) {
   @names = split /:/, $keyword{$key};
} elsif (defined $fullname{$key}) {
   @names = ($key);
} else {
   # Suche nach Namen, die eine Obermenge der
   # uebergebenen Namenskomponenten darstellen
}

*Wenn der Parameter keys vorliegt, werden beide DBM-Dateien mit tie eröffnet.
 
*Nachdem überflüssige Leerzeichen und Kommata entfernt und Umlaute in Ersatznotation konvertiert worden sind, wird untersucht, ob der ganze Suchbegriff als

*Namensteil oder
 
*vollständiger Name oder
 
*Namens-Teilmenge eines vollständigen Namens
 
bekannt ist.
 

 [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