Скрипты Perl

Перед занимающимися Web-программированием, на определенном этапе, встает вопрос о включении скриптов Perl в HTML - страницы своего сайта.

Вы, на своем компьютере (называемым клиентом) в программе получившей название - Wеб-браузер (IE, Opera, Mozila), вводите строку запроса в поле адреса. Обрабатывает ваш запрос программа, ожидающая сообщение о вызове и выполняющаяся на компьютере (сервере) с которым вы соединяетесь. Эта программа-демон, называемая Web-сервером. Сообщения, посылаемые от Web-сервера к Web-браузеру, если они написаны на языке HTML содержат: инструкции, текст, локальные и гиперссылки, ссылки на рисунки, звуковые и видео файлы.

Ваш Web-браузер (чаще всего это Internet Explorer) — получив HTML- страницу, обрабатывает содержащиеся в ней инструкции и выводит на экран дисплея отформатированный текст с включенной в него графической информацией. Для того чтобы страницы сайта сделать более содержательными, только возможностями языка гипертекстовой разметки (HTML) - не обойтись. Чтобы оживить в ваши страницы, необходимо воспользоваться возможностями серверной технологии SSI (Server-Side Includes, включения на стороне сервера). cgi perl

SSI — это набор команд, позволяющий включать в страницы вашего сайта и модифицировать их (с помощью SSI-директив), выходные данные из CGI - скриптов, текстовых и html-файлов, значения системных переменных и многое другое.

CGI (Common Gateway Interface — «общий интерфейс шлюза») — стандарт интерфейса, служащего для связи внешней программы с веб-сервером.

Пример вывода текущей даты директивой SSI:   <!--#echo var="DATE_LOCAL"-->

Tuesday, 07-Feb-2012 02:57:00 MSK

Сервер имя/версия (операционная система)      <!--#echo var="SERVER_SOFTWARE"-->

Apache/2.2.16 (Ubuntu)

Пожалуй, главная из возможностей технологии SSI — это включение в страницы сайта скриптов написанных на различных языках программирования. Одним из таких языков является Perl. Web-сервер, перед отправкой запрошенной страницы, просматривает её и, встретив директиву SSI, передает соответствующему обработчику. Например, если это вызов скрипта на Perl, отправляет его на интерпретатор Perl. Интерпретатор переводит программу в машинные коды, выполняет их и заканчивает свою работу. Результат выполнения будет вставлен в страницу (в данном случае HTML) и отправлен запросившему её Wеб-браузеру. См. пример - скрипт получения сведений о посетителях сайта.

Пример скрипта на Perl. Простой счетчик посещений: perl примеры
Вызывается директивой SSI: <!--#include virtual="/cgi-bin/prcount/prcount.cgi"-->

#!/usr/bin/perl -w

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

$counter_file="prcount.txt";

if (open(FILETXT,$counter_file)) {
$visit= <FILETXT> ;
close(FILETXT);
}

$visit++;
print "Вы";
print "<font color=\"#FF0000\">&nbsp; $visit-й &nbsp;</font>";
print " посетитель одной из двух страниц.";

if (open(FILETXT,$counter_file)) {
open(FILE,">$counter_file");
print FILE $visit;
close(FILE);
}

Web-server Apache, на реальном сервере с Unix-подобной OS, встретив в тексте страницы директиву подобную:
<!--#include virtual="/cgi-bin/prcount/prcount.cgi"-->
определит, что вызываемый файл является скриптом на Perl и передаст его для обработки интерпретатору Perl. Результаты выполнения данного скрипта будут вставлены в страницу вместо его вызова, как показано ниже.

Вы   14464-й   посетитель одной из двух страниц.

Итак, скрипты выполняются на сервере, а вы получаете только их результаты, включенные в HTML-страницы. В данном случае это фраза — Вы n - ный посетитель этой страницы.

Выходит, что объект тестирования и наладки — скрипт, находится на удаленном компьютере. Это одна из самых "приятных" особенностей скриптовых языков программирования. Для размещения, установки атрибутов и отладки скриптов на сервере хостинг-провайдера (тем, кто имеет сайт) необходим выход в Интернет. Постоянное увеличение тарифов на телефонную связь и услуг интернет-операторов, в сочетании с отменой, дифференцированной (по времени суток) их оплаты, может превратить в довольно дорогостоящее занятие, получение нужного результата от простого скрипта.

 Что нужно сделать для минимизирование этих затрат владельцам и разработчикам сайтов и как приступить к изучению языка Perl не имеющим их?