Разработка пользовательского интерфейса к БД в СУБД MySQL. Пономарев А.А. - 31 стр.

UptoLike

Составители:

Рубрика:

Рисунок 6 -Результат работы скрипта result.pl

Если вы не видите этого, проверьте правильность URL. В противном

случае форма и скрипт правильно работают вместе. Вы успешно создали пер-

вое web-приложение.

Для изучения различных переменных создайте следующий скрипт:

#!/usr/local/perl/bin/perl

#vars.cgi

sub urldecode{ #очень полезная функция декодировани

local($val)=@_; #запроса,будет почти в каждой вашей CGI-програм-

ме

$val=~s/\+/ /g;

$val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;

return $val;

}

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

print "<HTML><HEAD><TITLE>CGI-Variables</TITLE></HEAD>\n";

print "<BODY>\n";

print "Enter here something:<ISINDEX> \n";

print "Your request is:$ENV{'REQUEST_STRING'} \n";

print "Decoded request

is:urldecode($ENV{'REQUEST_STRING'}) \n";

print "<HR>\n";

print "Variables: \n";

print "REQUEST_METHOD=$ENV{'REQUEST_METHOD'} \n";

print "QUERY_STRING=$ENV{'QUERY_STRING'} \n";

print "CONTENT_LENGTH=$ENV{'CONTENT_LENGTH'} \n";

print "CONTENT_TYPE=$ENV{'CONTENT_TYPE'} \n";

"GATEWAY_INTERFACE=$ENV{'GATEWAY_INTERFACE'} \n";

print "REMOTE_ADDR=$ENV{'REMOTE_ADDR'} \n";

print "REMOTE_HOST=$ENV{'REMOTE_HOST'} \n";

print "SCRIPT_NAME=$ENV{'SCRIPT_NAME'} \n";

"SCRIPT_FILENAME=$ENV{'SCRIPT_FILENAME'} \n";

print "SERVER_NAME=$ENV{'SERVER_NAME'} \n";