|
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
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |