Intro, Perl, Програмування, статті

Захищеність і модульність – два великих принципу програмування. 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>

*

*