Intro

Захищеність і модульність – два великі принципи програмування. Perl
забезпечує їх виконання, надаючи можливість розбивати програму на
напівавтономні фрагменти так, що програмісту не треба турбуватися про конфлікти
між ними і рештою частини програми. Для розподілу програми на незалежні
фрагменти використовуються пакети Perl, які створюють непересічні області
імен (namespaces). Що таке область імен? Це частина програми зі своєю
власне областю видимості глобальних ідентифікаторів – іншими словами, вона
функціонує як приватна територія програміста.

Насправді в Perl немає такої речі, як "область видимості глобальних
ідентифікаторів ", – будь-яка така область обмежується якимось пакетом. Створюючи
пакет, ви отримуєте певну гарантію того, що ваш код не змішається з змінними
і підпрограмами іншого фрагмента. Це дозволяє організовувати код,
призначений для багаторазового використання, у вигляді пакетів.

Крім пакетів існують також модулі Perl. Моудлі – це пакети,
організовані спеціальним чином. Їх можна завантажувати і інтегрувати з
конкретною програмою. У цій статті піде мова про створення модулів і пакетів.

Пакети


Пакет можна представити у вигляді юніта Delphi. Код, що поміщається в пакет, може
розміщуватися в зовнішньому файлі, в декількох файлах, хоча кілька пакетів можуть
розміщуватися в одному файлі (що неможливо зробити в дельфийском юніті).
Перемикатися між різними пакетами всередині файла потрібно за допомогою команди
package. Давайте створимо простий пакет і збережемо його як package1.pl:

package package1;
BEGIN { }
sub subroutine1 {print "Hello!n";}
return 1;
END { }

Команда package починає новий пакет package1. Зверніть увагу на
підпрограми BEGIN і END. Перша підпрограма виконується відразу ж після
завантаження пакету. Тому в неї зазвичай поміщають ініціалізація код. Хоча вірніше
було б стверджувати, що підпрограма BEGIN виконується як тільки інтерпретатор
доходить до неї, тобто до закінчення завантаження пакету. А підпрограма END
виконується при завершенні роботи інтерпретатора і може містити код,
виконує заключні оперпаціі (наприклад закриття відкритих файлів.
Підпрограми BEGIN і END викликаються неявним чином (більш того, вам ніколи не
вдасться явно викликати BEGIN: інтерпретатор знищує її відразу ж після
використання). Саме тому ці підпрограми складаються із заголовних букв, і
ключове слово sub для них можна не вказувати.

Зверніть увагу на підпрограму subroutine1. Її можна викликати в межах
коду, що використовує пакет. Крім того, варто звернути увагу на команду
return, розташовану поза будь-яких підпрограм, – вона повертає значення
"Істина" після завантаження пакету, показуючи таким чином, що пакет готовий до
роботі (насправді повертається останнє значення, обчислене в тілі
пакета, тому часто замість рядка return 1 ставиться просто одиниця).

Що б використовувати в програмі код пакету, необхідно помістити в сценарій
команду require:

require "package1.pl";

Тепер можна посилатися на ідентифікатори пакету package1, відокремивши його ім'я від
ідентифікатора двома двокрапками "::". Раніше в ролі роздільника був апостроф
(Будьте уважні, тому що цей роздільник використовується і зараз). Але
тепер Perl слід стилю C + + і використовує "::". Ось приклад виклику підпрограми
subroutine1 з пакету package1:

require "package1.pl";
package1::subroutine1();

Як результат роботи цієї програми буде виведений напис "Hello!". Можна
також у пакети поміщати інші ідентифікатори, наприклад змінні:

package package1;
BEGIN { }
$var1=1;
sub subroutine1 {print "Hello!n";}
return 1;
END { }

Використовувати цю змінну легко. Досить підставити символ "$" перед
конструкцією виклику. Приклад:

require "package1.pl";
$package1::var1;

Зверніть увагу, що символ "$" ставиться перед назвою пакунка, але НЕ
ставиться після:: перед var1. Проте таким способом неможливо дістатися до
змінних, описаних за ключовим словом my: вони мають лексичної областю
видимості і доступні тільки усередині модуля.

При зверненні до ідентифікаторів можна опускати ім'я пакету, і тоді буде
використано пакет main (рядок $:: var1 еквівалентна $ main: var1).

Якщо в програмі потрібно досить часто звертатися до ідентифікаторів з
пакетів, то код стає великим і малозрозумілим. Що б вирішити цю проблему
потрібно використовувати модулі. При використанні модулів можна експортувати імена,
зазначені в модулі в текущу область імен.

Модулі


Модулі – це пакети, оформлені в окремих файлах, у яких імена
останніх збігаються з іменами модулів і мають розширення pm. За угодою Perl
визначає, що ім'я модуля починається з великої літери. Код, що міститься в
модулі, на відміну від "пакетного" коду, може експортувати глобальні імена в
текущу область глобальних імен. Це означає, що при зверненні до
ідентифікатору не потрібно вказувати ім'я пакета.

Розглянемо приклад. Створіть модуль з ім'ям Module1 і зберіг його у файлі
Module1.pm. У коді підпрограми BEGIN, виконуваному при завантаженні модуля, будемо
використовувати стандартний модуль Exporter, що б експортувати ім'я підпрограми
subroutine1:

package Module1;
BEGIN {
use Exporter ();
@ISA = "Exporter";
@EXPORT = "&subroutine1";
}
sub subroutine1 {print "Hello!n";}
return1;
END { }

Для використання модуля в програмі потрібно підключити його за допомогою команди
"Use" (він буде включений у момент компіляції). Якщо ж підключити модуль командою
require то модуль підключиться в момент виконання сценарію. Приклад:

use Module1;
subroutine1();

В результаті виконання цього коду буде виведено рядок "Hello!".

Outro


Ця стаття не пертендует на повноту опису модулів і пакетів. Існує
ще багато, чого ви не дізналися з цієї статті: пакети можна вкладати один в
одного, вирішувати експортувати певні імена і не експортувати їх за
замовчуванням і навіть викликати неіснуючі підпрограми. Але це тема величезної голови
книги, якщо не всієї книги.

При підготовці статті були використані матеріали з книги "Perl. Спеціальний
довідник "(автор Стівен Холзнер, видавництво" Пітер ", 2001 р.)

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*