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-страницы.
#!/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
Ввиду того что поле значения у нас состоит из адреса электронной почты и номера телефона, разделенных двоеточием, при выводе мы должны отделить