Иллюстрированный самоучитель по Perl



         

Переменные среды CGI - часть 2


/p>

Имена переменных среды CGI на разных Web-серверах могут различаться. Следует обратиться к документации на соответствующий сервер.

CGI-программа на языке Peri имеет доступ к переменным среды через специальный предопределенный хеш-массив %ENV, к элементам которого можно обратиться по ключу, совпадающему с именем переменной среды. Ниже приведены пример CGI-сценария, формирующего HTML-документ с информацией о всех установленных переменных среды, и отображение этого документа в окне браузера.

#!/usr/bin/perl

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

print "<html>\n";

print "<head><title>Преременные cpeды</titlex/head>\n";

print "<bоdу><h2>Переменные среды</h2>\n";

print "<hrxpre>\n";

foreach $name (sort(keys %ENV))

{

print "$name: $ENV($name}\n";

}

print "<hrx/pre>\n";

print "</bodyx/html>\n";

Рис 15.3. Информация о переменных среды CGI




Содержание  Назад  Вперед