На этом шаге мы приведем пример простой Perl-программы.
Приведем пример простой Perl-программы, которая печатает на экране монитора приглашение ввести имя пользователя, а в ответ просто приветствует его.
print "Ваше имя?\n"; # Приглашение ввести имя. $name = <STDIN>; # Ввод имени с клавиатуры. $~ = NAME_FORMAT_TOP; # Вывод верхней разделительной черты. write; $~ = NAME_FORMAT; # Назначение формата вывода. write; # Вывод приветствия. $~ = NAME_FORMAT_BOTTOM; # Вывод нижней разделительной черты. write; # Заголовок формата NAME_FORMAT. # Начало описания формата. format NAME_FORMAT= Привет, @>>>>>>>>>>>>! $name . # Формат вывода верхней разделительной черты. format NAME_FORMAT_TOP= ================================ Сообщение Perl-программы . # Формат вывода нижней разделительной черты. format NAME_FORMAT_BOTTOM= ================================ .
Прежде всего нужно набрать эту программу в обычном текстовом редакторе и сохранить ее в файле с расширением pl. Программы Perl являются обычными текстовыми файлами и для их создания можно использовать любой текстовый редактор, например, Блокнот.
Для выполнения приведенной программы нужно в коммандной строке набрать:
perl program.pl
где program.pl - имя файла, содержащего Perl-программу. В результате ее выполнения можно увидеть следующее (зеленым цветом выделен ввод пользователя):
Ваше имя?
Александр
================================
Сообщение Perl-программы
Привет, Александр!
================================
Прокомментируем приведенную программу. Комментарии в языке Perl начинаются с символа # и распространяются до конца строки. Единственное исключение - это если сразу же после символа комментария следует символ !.
Функция print посылает на системное устройство вывода (обычно это монитор компьютера) содержимое списка своих параметров, при необходимости автоматически преобразуя его в символьное представление. В нашей программе на экране отобразится фраза: Ваше имя? Символы \n осуществляют перенос курсора в начало следующей строки.
Конструкция $name = <STDIN>; ожидает ввод со стандартного устройства ввода (обычно это клавиатура) и присваивает переменной $name введенное пользователем имя.
Оператор $~ = NAME_FORMAT_TOP; назначает системной переменной $~ имя используемого формата для выполнения вывода на стандартное устройство вывода системной функцией write. Сам формат задается оператором format, в котором определяется имя формата (например NAME_FORMAT_TOP), завершающееся символом ; (точка с запятой). Завершение определения формата отмечается символом точка (.).
Сам формат представляет собой повторяющуюся последовательность двух строк:
- строки вывода - в ней все символы являются значащими (пробельные символы, знаки табуляции, переход на новую строку и т.п.). Поледержатель - это специальная конструкция в строке вывода, начинающаяся с символа @, за которым следует определенное количество специальных символов, задающих длину поля, в которое выводится значение переменной, ассоциированной с поледержателем;
- строки с перечнем переменных - в ней располагаются переменные (через запятую), значения которых нужно вывести в строке вывода. Эта строка располагается сразу же за строкой вывода. Если в строке вывода поледержателей нет, то строку со списом переменных задавать не надо.
В формате NAME_FORMAT определена одна строка с одним поледержателем, который резервирует поле длиной 12 символов и определяет, что выводимое значение должно быть прижато вправо (символ >). Это означает, что если значение ассоциированной с этим поледержателем переменной $name будет меньше 12 символов, то в этом поле при выводе они будут выровнены по правому краю. Если выводимое значение занимает более 12 символов, то строка обрезается по правому краю, то есть отображаются первые 12 символов, считая слева направо.
Форматы NAME_FORMAT_TOP и NAME_FORMAT_BOTTOM не имеют поледержателей, поэтому у них отсутствуют строки с именами переменных.
На следующем шаге мы поговорим о синтаксисе языка и расскажем в общих чертах, из чего состоит программа на языке Perl, то есть опишем структору программы.
