Функция 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