906 _________________Часть VIII. Примеры

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

h09061.jpg

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