включаючи CGI.pm для Perl :
Тепер, коли дані з форми були прочитані, треба прочитати записи в базі даних безпосередньо. Через те, що ми використовуємо розмежовану базу даних, найлегше прочитати з повної бази даних. База даних поля фіксованої довжини повинна дати нам можливість просуватися через базу даних без читання інформації, але цей метод має власні перешкоди (найбільш очевидне те, що дані не повинні перевищувати незмінну довжину). Ми читаємо базу даних, як плаский ASCIІ-файл і аналізуємо це полінійно, використовуючи зручну Perl-конструкцію while(<FILEHANDLE>)<>.
!!!!!
Цей приклад вимагав Perl 5.001 або вище, через використання звертань, які не включалися в Perl 4 (або раніше). Perl 5 містить багато покращень та нових можливостей і є необхідним для будь-якого Перломану -доступний на
# Спершу, відкрийте базу даних. (тут 'database.txt'.)
open (DAT, "database.txt") || die "Can't open the database: $! !.\n";
$maxn = 0; # лічильник записів.
while (<DAT>) {
;
= split(/:/); # розбити запис на окремі поля
= $field[0]; # Перше поле є ID номером
{'name'} = $field[1]; # Потім ім'я
{'phone'} = $field[2]; # тел. номер
{'street'} = $field[3]; # адреса
{'city'} = $field[4]; # місто
{'state'} = $field[5]; # країна
{'zip'} = $field[6]; # поштовий індекс
}
$maxn = $n # Встановлено max номер до останнього запису
Тепер, коли база даних була завантажена, нам потрібно порівняти запит користувача з даними :
@results = (); # обнулити вихідний масив.
if ($name = $FORM{'name'}) { # пошук за ім'ям,
($I = 0; $I <= $maxn; $I++) { # пройти по всіх записах
($name eq $add[$I]{'name'}) { # шукаючи співпадань.
; # якщо найдено, додати номер }
(!@results) { &exitnone; } якщо нічого не знайдено - вийти.
}
# Тепер для кожного критерію. Якщо є результати від попереднього
# пошуку, шукати в них, і видалити будь-які невідповідні записи.
if (($phone = $FORM{'phone'}) && !@results) {
for ($I = 0; $I <= $maxn; $I++) {
($phone eq $add[$I]{'phone'}) {
;
}
}
(!@results) { &exitnone; }
} elsif ($phone = $FORM{'phone'}) {
= @results;
$I (@r2) {
($phone ne $add[$I]{'phone'}) {
= grep(!/$I/,@results);
}
}
(!@results) { &exitnone; }
}
if (($street = $FORM{'street'}0 && !@results) {
($I = 0; $I <= $maxn; $I++) {
($street eq $add[$I]{'street'}) {
;
}
}
(!@results) { &exitnone; }
} elsif ($street = $FORM{'street'}) {
= @results;
$I (@r2) {
if ($street ne $add[$I]{'street'}) {
= grep(!/$I/,@results);
}
}
(!@results) { &exitnone; }
}
if (($city = $FORM{'city'}) && !@results) {
($I = 0; $I <= $maxn; $I++) {
($city eq $add[$I]{'city'}) {
;
}
}
(!@results) { &exitnone; }
} elsif ($city = $FORM{'city'}) {
= @results;
$I (@r2) {
($city ne $add[$I]{'city'}) {
= grep(!/$I/,@results);
}
}
(!@results) { &exitnone; }
}
if (($state = $FORM{'state'}) && !@results) {
($I = 0; $I <= $maxn; $I++) {
($state eq $add[$I]{'state'}) {
sh(@results,$I);
}
}
(!@results) { &exitnone; }
} elsif ($state = $FORM{'state'}) {
= @results;
$I (@r2) {
($state ne $add[$I]{'state'}) {
= grep(!/$I/,@results);
}
}
(!@results) { &exitnone; }
}
if (($zip = $FORM{'zip'}) && !@results) {
for ($I = 0; $I <= $maxn; $I++) {
($zip eq $add[$I]{'zip'}) {
;
}
}
(!@results) { &exitnone; }
} elsif ($zip = $FORM{'zip'}) {
= @results;
$I (@r2) {
($zip ne $add[$I]{'zip'}) {
= grep(!/$I/,@results);
}
}
if (!@results) { &exitnone; }
}
У цей момент, або ми маємо успішні співпадання, які зберігаються в масиві @results, або ми не маємо співпаданнь, і в цьому випадку ми викликаємо підпрограму &exitnone. Тепер ми можемо видати клієнту результати (або їх відсутність).
# якщо немає результатівБ видати повідомлення та вийти.
sub exitnone {
<<EOE;
<HTML><HEAD><TITLE>No matches</title></head>
<BODY>
<h3>There were no matches that fit your criteria.</h3>
<A HREF="addrbk.html">Go</a> back to the form to try again.
</body></html>
EOE
die;
}
# роздрукувати результати.
print <<EOP;
<HTML><HEAD><TITLE>Search Results</title></head>
<BODY>
<h3>The entries that matched your search</h3>
<pre>
EOP
foreach $r (@results) {
<<EOG;
----
Name: $add[$r]{'name'}
Phone: $add[$r]{'phone'}
Address:
$add[$r]{'street'}
$add[$r]{'city'}, $add[$r]{'state'} {'zip'}
EOG
}
print <<EOH;
</pre><br>
Thank you for using my address book.
<A HREF="addrbk.html">Go</a> back to the form to make another search.
</body></html>
EOH
Тепер ми маємо робочий інтерфейс до адресної книги. Є декілька оптимізацій, які могли б бути зроблені, але це помітно лише для декількох дюжин записів. Зверніть увагу, що цей скрипт робить тільки логічний пошук AND на всіх полях. Можливо зробити OR-пошук - через знищення всіх викликів до &exitnone, крім останнього. Таким чином, коли програма не знаходить ніяких співпадань, вона не скінчиться, а перейде до наступного поля. Можна, також дати кінцевому користувачеві можливість вибрати, чи зробити пошук AND або OR за допомогою додавання спадного меню до сторінки форми. Тоді CGI міг би вийти або ні залежно від вибору.
Тепер, коли користувач може шукати у вашій БД за будь-яким критерієм, наступним логічним питанням є те, як додати або перемістити інформацію до бази даних. Ви могли, звичайно, б зробити це вручну, але було б добре дозволити пряме маніпулювання базою даних