Создание серверных приложений на языке PERL

       

Функция USE



Функция USE

use модуль список use модуль

Указывает библиотечный модуль, из которого можно вызывать подпрограммы. Список перечисляет имена подпрограмм, которые добавляются к текущей области имен. Если не указан, то все имена. Действие аналогично блоку:

BEGIN { require модуль; import модуль список; }

Сам модуль должен располагаться в системной области Perl файлов.

И так, основные правила этикета, которых нужно придерживаться при написании программ:

  • Вызывать Perl интерпретатор нужно с параметром "-w". Это заставит его более тщательно анализировать код с целью выявления сбойных или потенциально сбойных участков;
  • Используйте в программе прагму (модуль) Strict. Аналогично предыдущему пункту, но код анализируется еще строже;
  • Описывайте все переменные, которые используете в программе. Описать переменную можно оператором my();
  • Не проводите никаких операций над не определенными или не существующими переменными, ячейками массива или ключами хеша. Программно проверяйте "наличие" ячейки массива или ключа хеша перед операцией, если не уверенны в их существовании на момент использования;
  • Давайте переменным "говорящие" имена. Это облегчит жизнь Вам и Вашим коллегам при анализе кода;
  • Не используйте оператор goto!
  • Старайтесь не создавать рекурсивных функций (функции, которые вызываются сами из-под себя), они иногда приводят к возникновению "вечных циклов". А это в свою очередь является ошибкой программирования;
  • Сопровождайте комментариями все строки кода, которые могут интерпретироваться читателем двояко или будут непонятны.
    Вообще, комментарии никогда не бывают лишними. Код, где комментирована буквально каждая строка легко читается и отлаживается; они помогут Вам вспомнить и разобраться в коде, который вы когда-то начали писать, но, по каким-то причинам, не закончили;
  • Не пишите строки, которые выходят за пределы экрана. Оптимальным кол-вом символов в строке является 66-88;
  • В блоках кода (участках, заключенных в фигурные скобки) текст должен иметь выступ в 1 табуляционный символ или в 5 пробельных символов;
  • Не пишите код сплошным текстом. Разбивайте его на функциональные участки и оформляйте их в процедуры;
  • Перед выполнением операции деления проверяйте, не производится ли деление на ноль;
  • Перед открытием файла проверяйте его на предмет существования и возможности открытия (бывает так, что файл существует, но занят другим приложением);
  • Используйте альтернативные операции при невозможности выполнить какое-либо действие. К примеру, используйте операторы || (or) и die, если имеет место ошибка при открытии файла.

Из всего вышесказанного, грамотно написанная программа выглядит примерно так:

#!/usr/bin/perl -w use strict; print "Content-type: text/html\n\n"; my ($summ,$i); $summ=0; for ($i=-5;$i<=5;$i++){ $summ+=10/$i if $i != 0; } print $summ; # выводим сумму результатов деления 10 на # диапазон от -5 до 5

Содержание раздела