На этом шаге мы рассмотрим алгоритм создания и подключения библиотечного файла.
Для создания собственной библиотеки следует выполнить следующие шаги.
- Создать каталог для хранения библиотечных файлов.
- Сохранить наборы подпрограмм в отдельных файлах-библиотеках. Переместить библиотечные файлы в специально созданный для них каталог.
- В конец каждого библиотечного файла поместить строку " 1;". Смысл этого действия заключается в следующем.
Как видно из приведенного на предыдущем шаге текста, включение библиотечного файла в основную программу
осуществляется через его выполнение функцией do:
Значение $result, возвращаемое функцией require, должно быть ненулевым, что является признаком успешного выполнения кода инициализации. Простейший способ получить ненулевое значение - добавление в конец каждого библиотечного файла строки " 1;".
$result = do $realfilename;
- В основной программе использовать директиву require, указав в качестве ее аргументов имена требуемых библиотечных файлов.
- Добавить в массив @INC имя каталога, содержащего библиотечные файлы, либо при запуске основной программы передать это имя интерпретатору perl при помощи ключа -I.
Создадим библиотечный файл mylib.pl и поместим его в каталог /usr/temp/perllib. Файл mylib.pl содержит единственную подпрограмму NumOfArgs(), которая выводит число аргументов, переданных ей при вызове.
# библиотечный файл /usr/temp/perllib/mylib.pl
sub NumOfArgs
{
return $#_ + 1;
}
1;
Создадим файл основной программы mymain.pl:
#! perl -w
unshift (@INC, "/usr/temp/perllib");
require "mylib.pl";
print "Число аргументов=", NumOfArgs(1,2,3,4), "\n";
В результате выполнения файла mymain.pl будет выведена строка
Число аргументов=4
Обратите внимание на выполнение всех шагов, необходимых для создания и подключения библиотеки.
Со следующего шага мы начнем знакомиться с модулями.
