Простейший скрипт на Perl

Функциональным аналогом пакетного файла, описанного в листинге 4.1, будет являться примерно следующий Perl-скрипт.

01 #!C:/apache/bin/perl/perl
02 print "Content-Type: text/plain\n\n";
03 print "Hello World!";
04 exit(0);
В первой строке после пары символов #! указывается путь к интерпретатору Perl. Наш скрипт, очевидно, выполняется в среде Windows, а интерпретатором Perl является файл C:\apache\bin\perl\perl.exe.
Оператор print во второй строке выводит в стандартный вывод поле HTTP-заголовка Content-Type. Символы \n представляют собой escape-последовательность, обозначающую переход на новую строку. Два перехода на новую строку образуют пустую строку, необходимую для завершения HTTP-заголовка.
В третьей строке тот же оператор print используется для вывода строки Hello World!
Два оператора print можно было бы объединить в один, но в таком случае пример стал бы менее наглядным.
Четвертая строка не является обязательной. Она предписывает завершить скрипт с нулевым кодом ошибки (имеется в виду переменная окружения ERRORLEVEL, анализируемая операционной системой после завершения работы той или иной программы; 0 означает, что программа завершилась нормально). Оператор exit необходим в сложных разветвленных программах для явного указания мест, где работу скрипта следует завершить.
Несмотря на тривиальность кода, мы сохранили вышеприведенный скрипт на компакт-диске, прилагаемом к книге, в папке \examples\04\02 под именем helloworld.cgi. Расширение файла, к слову, может быть любым — Perl-скрипты, например, часто используют расширение pl.


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


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