sub error ( print «"HTML";

<HTML>

<HEADXTITLE>Error! </TITLEX/HEAD>

<BODY>

<Hl>Error! Name exists!</H1>

I'm sorry, but the name you entered already exists. If you wish to try again, click

<A HREF="/dbbook.html">here</A>

</BODY>

</HTML>

HTML

exit;

)

^

Вывод информации базы данных.Теперь вам нужно позаботиться о том, чтобы информация стала доступной. На листинге 36.6 представлен код, позволяющий связаться с базой данных и сформировать "шапку"Web-страницы.

h09141.jpg

#!/usr/bin/peri

# dbbook.pl use DB_File;

use Fcnti;

print "Content-type:text/html\n\n";

$file="addresses";

$database=tie(%db, 'DB_File', $file, 0_READ, 0660)]¦die "can't";

print «"HTML";

<HTML>

<HEADXTITLE>Simple dbm address book</TITLEX/HEAD>

<BODY>

<CENTER>

<H1>A Simple Address Book</Hl>

<TABLE BORDER=1>

HTML

Ввиду того что поле значения у нас состоит из адреса электронной почты и номера телефона, разделенных двоеточием, при выводе мы должны отделить