906 _________________Часть VIII. Примеры
Ввод информации в базу данных.Первая часть скрипта (листинг 36.2)обрабатывает информацию, которую ввел пользователь в форму. После этого проверяется, был ли запрос на добавление этой информации в базу данных. Если был, то файл данных открывается, и информация заносится в отдельную строку базы данных.
if ($ENV{'REQUEST_METHOD')eq 'POST'){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs= split(/&/, $buffer);
foreach $pair (Qpairs)
(
($name, $value)=split(/=/, $pair);
$value=~tr/+/ /; -
$value=~s/%([a-fA-FO-9][a-fA-FO-9])/pack("C", hex($l))/eg;
$ contents($name}=$value;
}print "Content-type:text/html\n\n";
$phonebook= "phonebk.txt";
if ($contents{'act'}eq "add")(
open (BOOK, "»$phonebook")II d {Sno open;};
print BOOK "$contents{'fname'}:$contents{'Iname'}:$contents('phone')\n";
close(BOOK);
print «"HTML";
<HTML>
<HEAD><TITLE>Information added</TITLEX/HEAD>
<BODY>
<Hl>Information added</Hl>
The information entered has been added to the phonebook.
<HR>
<CENTER>
<A HREF="/pbook.html">[Return to the Phonebook]</A>
</CENTER>
</BODY>
</HTML>
HTML