Получение параметров среды окружения

И все-таки главная задача CGI-скриптов получать от клиента и обрабатывать параметры. Этот пример как раз и демонстрирует средства реализации этой функции в Perl . Список стандартных параметров вы можете найти в справочных материалах. Эта программа просто генерирует HTML-документ со списком значений всех параметров, полученных в запросе.

#!/usr/bin/perl
sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;
return $val;
}

Это одна из самых важных функций, которая встречается практически в каждом скрипте. Она переводит строку запроса из закодированного для передачи в URL формата в обычный. Подробнее о URL формате в справочных материалах. Реализовано при помощи оператора подстановки: сначала в строке все плюсы заменяем на пробелы, а затем раскодируем все символы, записанные в шестнадцетиричном коде.

print "Content-Type: text/html\n\n";
print " <HTML> <HEAD> <TITLE>CGI-Vraiables </TITLE> </HEAD>\n";
print " <BODY>\n";

Это необходимая "головная" часть генерируемой страницы.

print "Ваш запрос: $ENV{'REQUEST_STRING'} \n";
print "Декодированный запрос: ";
print "&urldecode($ENV{'REQUEST_STRING'})";

Под параметры в Perl выделяется специальный хэш %ENV, в котором ключами являются имена переменных, а данными их значения. Таким образом, эта часть программы выводит строку запроса и ее же декодированную при помощи функции urldecode.

print " \n";
print " <HR>\n";
print "Переменные CGI: \n";
print " REQUEST_METHOD =$ENV{'REQUEST_METHOD'} \n";
print " QUERY_STRING =$ENV{'QUERY_STRING'}
\n";
print " CONTENT_LENGTH =$ENV{'CONTENT_LENGTH'}
\n";
print " 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";
print " SCRIPT_FILENAME =$ENV{'SCRIPT_FILENAME'} \n";
print " SERVER_NAME =$ENV{'SERVER_NAME'} \n";
print " SERVER_PORT =$ENV{'SERVER_PORT'} \n";
print " SERVER_PROTOCOL =$ENV{'SERVER_PROTOCOL'} \n";
print " SERVER_SOFTWARE =$ENV{'SERVER_SOFTWARE'} \n";
print " HTTP_ACCEPT =$ENV{'HTTP_ACCEPT'} \n";
print " HTTP_USER_AGENT =$ENV{'HTTP_USER_AGENT'} \n";
print " HTTP_HOST=$ENV{'HTTP_HOST'} \n";
print " <HR>\n";

Эта часть прграммы выводит основные переменные окружения.

print "Все переменные среды: \n"
foreach $env_var (keys %ENV) {
print " $env_var=$ENV{$env_var} \n";
}
А этот цикл проходит весь хэш и выводит значения всех параметров.

print " </BODY> </HTML>\n";

И, наконец, заканчиваем документ.

Как это работает можно посмотреть здесь.