Глава 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.