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);...
Рис. 36.1.Так выглядит информация телефонной книги в браузере
После вывода информации построение страницы заканчивается, и скрипт завершает работу.
Поиск в базе данных.Наконец, следует проверить, не выбрал ли пользователь опцию поиска по ключевому слову (листинг 36.4). Если это так, программа должна открыть базу данных и сравнить ключевое слово с каждой строкой.
Сначала база данных открывается и формируется верхняя порция (шапка)результата. Далее у вас есть счетчик, начальное состояние которого равно нулю. Каждая строка считывается и проверяется на соответствие значению переменной $content5( 'keyword'}. Если обнаружено совпадение, значение счетчика возрастает на единицу, а результат поиска появляется на Web-странице (рис. 36.2). Используйте показанный выше способ разделения данных при выводе.