Глава 36. Работа с базами данных 917
Ключ /i при использовании Per! предполагает проверку совпадения независимо от наличия строчных и прописных букв. Это означает, что если пользователь введе Bert, ЬЕгТил bert,могут быть найдены значени Bert, Robertил Bertran.
Если совпадение обнаружено, его следует вывести:
@part==split(/:/,$value);
if ($part[0]){
print "<TRXTDXA HREF=\"mailto:$part[0]\">$key</AX/TD>";
}else (
print "<TRXTD>$key</TD>";
}print "<TD>$part[0]</TDXTD>$part[l]</TDX/TR>\n";
После этого нужно завершить страницу, воспользоваться функцией untie о , чтобы отключиться от базы данных, а также отменить определение переменной $database И ВЫЙТИ ИЗ СКрИПТа.
print «"HTML";
</TABLE>
<Р>
<А HREF="/dbbook.htinl">[Add to address book]</A>
</BODY>
</HTML>
HTML
untie (%db);
undef($database);
exit;
Вы можете производить поиск не только по ключу, но и по значению. Это увеличивает гибкость вывода информации из базы данных.
Весь скрипт можно найти на компакт-диске. Там же расположена версия для Windows NT и Windows 95 (pbook.zip), которая использует базу данных sdbrri, входящую в состав Peri.