Когда сервер выполняет скрипт, для него создаются некоторые переменные окружения, среди которых как локальные данные (адрес скрипта на сервере, версия П/О сервера), так и данные полученные с HTTP запросом (версия браузера, IP удаленной машины и т.д.)
Знать эти данные для CGI программиста просто жизненно важно. Вот эти переменные:
| $ENV{'REQUEST_METHOD'} |
Это одно из самых главных поле используемое для определения метода запроса HTTP. Протокол HTTP использует методы GET и POST для запроса к серверу. Они отличаются тем что при методе GET запрос является как бы частью URL т.е. http://..../cgi-bin/myscript.cgi?param=value а при методе POST данные передаются в теле HTTP-запроса (при GET тело запроса пусто).
Для нас пока интересен только метод GET. |
| $ENV{'QUERY_STRING'} |
Это строка запроса при методе GET. |
| $ENV{'CONTENT_TYPE'} |
Тип тела запроса. |
| $ENV{'REMOTE_ADDR'} |
IP-Адрес удаленного Хоста, делающего данный запрос. |
| $ENV{'REMOTE_HOST'} |
Если запрашивающий Хост имеет доменное имя, то эта переменная содержит его, в противном случае -тот же самый IP-адресс что и REMOTE_ADDR. |
| $ENV{'SCRIPT_NAME'} |
Содержит URL адрес файла скрипта. |
| $ENV{'SCRIPT_FILENAME'} |
Полный путь к скрипту на сервере. |
| $ENV{'SERVER_NAME'} |
Имя серера ,чаще всего доменное как www.microsoft.com ,но в редких случаях за неимением такового может быть IP-адресом. |
| $ENV{'SERVER_PORT'} |
TCP-Порт сервера использующийся для соединения .По умолчанию HTTP-порт 80, хотя может быть в некоторых случаях другим. |
| $ENV{'SERVER_SOFTWARE'} |
Программное обеспечение сервера. |
$ENV{'AUTH_TYPE'}
$ENV{'REMOTE_USER'} |
Эти переменные определены в том случае, когда запрошенный ресурс требует аутентификации пользователя. |
| $ENV{'HTTP_ACCEPT'} |
Давая запрос на сервер браузер обычно рассчитывает получить информацию определенного формата, и для этого он в заголовке запроса указывает поле Accept:, Отсюда скрипту поступает список тех MIME, которые браузер готов принять в качестве ответа от сервера. |
| $ENV{'HTTP_USER_AGENT'} |
Браузер обычно посылает на сервер и информацию о себе, чтоб базируясь на знании особенностей и недостатков конкретных браузеров CGI-скрипт мог выдать информацию с учетом этого. Например, разные браузеры могут поддерживать или не поддерживать какие-то HTML тэги. |
| $ENV{'CONTENT_LENGTH'} |
Длина в байтах тела запроса. |
| $ENV{'GATEWAY_INTERFACE'} |
Версия протокола CGI. |
| $ENV{'SERVER_PROTOCOL'} |
Версия HTTP протокола сервера. |
Получение данных методом GET
Суть метода GET заключается в передаче некоторого объема информации вместе с URL скрипта. Для отделения URL от передаваемой информации используют знак "?" (вопросительный знак). Неплохо бы чисто формально напомнить, что все пробелы заменяются в URL на знак '+', а все специальные и непечатные символы на последовательность %hh ,где hh-шестнадцатиричный код символа. Методом GET можно одновременно передавать несколько значений. Как это делается я расскажу вам позже, а пока будем довольствоваться одним передаваемым значением.
Напишем программу, которая выводит квадрат числа, если передаем ей число, или строку, если передаем текстовую строку. Передавать данные следует примерно так:
"http://.../cgi-bin/script.pl?256"
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
if ($ENV{'QUERY_STRING'}**2 == 0){print $ENV{'QUERY_STRING'}}
else{print $ENV{'QUERY_STRING'}**2}
И еще одна программка, выводящая некоторые сведения о Вашем сервере:
#!/usr/bin/perl
#programm 9
print "Content-Type: text/html\n\n";
@array=($ENV{'SERVER_SOFTWARE'},$ENV{'SERVER_NAME'});
@array=(@array,$ENV{'SCRIPT_FILENAME'},$ENV{'HTTP_USER_AGENT'});
print "<table>";
foreach (@array){
print "<tr><td>$_</td></tr>\n";
}
print "</table>"
Попробуйте написать программу, выводящую таблицу Пифагора с максимальным значением по оси X и Y, передаваемым методом GET.
Сделайте так, чтобы ячейки закрашивались в шахматном порядке, а оси имели черный цвет.
Напишите программу, которая выводит символьную строку, переданную скрипту только в том случае, если IP удаленной машины не соответствует 127.0.0.1 |
Веб-Мастеру
