Форматированный вывод переменных окружения

В листинге 4.5 приводится код скрипта, осуществляющего форматированный вывод всех переменных окружения сервера (которые хранятся в хэше %ENV) в алфавитном порядке.

01 #!C:/apache/bin/perl/perl
02
03 print "Content-Type: text/html\n\n";
04
05 print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
? \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n\n";
06 print "<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"ru\"
? xml:lang=\"ru\">\n\n";
07 print "<head>\n";
08 print "<title>Переменные окружения</title>\n";
09 print "</head>\n\n";
10 print "<body>\n";
11 print "<h1>Переменные окружения</h1>\n";
12
13 foreach $element(sort(keys(%ENV)))
14 {
15 print "<p>$element = $ENV{$element}</p>\n";
16 }
17
18 print "</body>\n\n";
19 print "</html>";
20
21 exit(0);
Смысл строк 1—12 и 17—21, думаю, понятен читателю без дополнительных разъяснений. Основной функциональной частью скрипта являются строки 13—16. Цикл foreach осуществляет итерации элементов массива sort(keys(%ENV)) — списка отсортированных в алфавитном порядке ключей хэша %ENV. В строке 15 на каждой итерации цикла в стандартный вывод отправляются пары ключ — значение хэша %ENV. Эти данные размечаются как абзацы текста. Результат работы скрипта из листинга 4.5 приводится на рис. 4.5.

Описанный выше пример располагается на компакт-диске, прилагаемом к этой книге, в директории \examples\04\05.


© 2008-2018 ОптимизацияВебСайтов.ру


Любое использование текстового и графического контента сайта без активной ссылки на источник не доскается.