| "Истину
нельзя рассказать так, чтобы ее поняли;
надо, чтобы в нее поверили." Уильям Блейк |
Начнем изучение с написания
традиционного примера: скрипта, выводящего
строку "Hello, World!". Предполагается, что читающий эти строки
владеет каким-нибудь Си-подобным языком,
поэтому подробное описание операторов или
синтаксиса языка Perl мы считаем лишним (краткая
информация доступна в соответствующих
разделах справки).
Итак, приступим...
Когда наш скрипт вызывается браузером,
выполняются обычные команды языка Perl (все,
что мы направляем в стандартный вывод,
передается браузеру). Таким образом, мы
можем передать браузеру сам HTML код
требуемой страницы. При помощи команды print
выведем соответствующую строку.
#!c:\perl\bin\perl.exe
print "<html>
<head>
<body bgcolor=#F0F8FF text=#000000 leftmargin=60
rightmargin=90>
<CENTER>
<h1>Hello, World!</h1>
</center>
</body>
</html>";
Но гораздо удобнее использовать стандартный модуль CGI.pm интерпретатора Perl. Тот же пример, написанный с использованием этого модуля:
#!c:\perl\bin\perl.exe
Эта строчка в начале скрипта должна
указывать путь к интерпретатору Perl,
иначе скрипт выполняться не будет.
use
CGI;
Этот модуль является объектно-ориентированным
(начиная с пятой версии Perl) .
$cgi_obj=new CGI;
Создаем новый объект.
print $cgi_obj->header(),
$cgi_obj->start_html(-bgcolor=>'aliceblue'),
$cgi_obj->center($cgi_obj->h1("Hello,
World!")),
$cgi_obj->end_html;
И далее вызываем
различные методы этого объекта.
Можно посмотреть, как этот скрипт работает