908 Часть VIII. Примеры

open (BOOK, $phonebook)¦¦do (&no_open;};

until (eof(BOOK)){

$line= <BOOK>;

gentry= split(/:/, $line);

print "<TRXTD>$entry[0] $entry[l] </TDXTD>$entry[2] </TDX/TR>";

}

close(BOOK);...

h09081.jpg

Рис. 36.1.Так выглядит информация телефонной книги в браузере

После вывода информации построение страницы заканчивается, и скрипт завершает работу.

Поиск в базе данных.Наконец, следует проверить, не выбрал ли пользователь опцию поиска по ключевому слову (листинг 36.4). Если это так, программа должна открыть базу данных и сравнить ключевое слово с каждой строкой.

Сначала база данных открывается и формируется верхняя порция (шапка)результата. Далее у вас есть счетчик, начальное состояние которого равно нулю. Каждая строка считывается и проверяется на соответствие значению переменной $content5( 'keyword'}. Если обнаружено совпадение, значение счетчика возрастает на единицу, а результат поиска появляется на Web-странице (рис. 36.2). Используйте показанный выше способ разделения данных при выводе.