Глава 36. Работа с базами данных 909

Search results for "fred":

Fred Fhotstone 01-01--13 Fred King Cole 312-555-5555 RedriALMB 212-555-5555

ГР.лм-fi t<. the Ph^ncW'kl

Рис. 36.2.Обеспечивая пользователя средствами поиска, вы избавитесь от необходимости выводить всю информацию базы данных целиком

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

if ($contents{'act'}eq "search"){

open (BOOK, "$phonebook")do (&no open;};

$count=0;

until (eof (BOOK))

$line= <BOOK>;

chop($line);

if ($lin =~/$contents{'keyword'}/gi){

$count++;

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

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