Первый сайт на Perl

       

Создание и подключение библиотечного файла



Создание и подключение библиотечного файла

Для создания собственной библиотеки следует выполнить следующие шаги. П Создать каталог для хранения библиотечных файлов.

  • Сохранить наборы подпрограмм в отдельных файлах-библиотеках. Переместить библиотечные файлы в специально созданный для них каталог.
  • В конец каждого библиотечного файла поместить строку " i;". Смысл этого действия заключается в следующем. Как видно из приведенного текста, включение библиотечного файла в основную программу осуществляется через его выполнение функцией do:
  • $result = do $realfilename;

    Значение $resuit, возвращаемое функцией require, должно быть ненулевым, что является признаком успешного выполнения кода инициализации. Простейший способ получить ненулевое значение — добавление в конец каждого библиотечного файла строки "1,-".

  • В основной программе использовать директиву require, указав в качестве ее аргументов имена требуемых библиотечных файлов.
  • Добавить в массив @INC имя каталога, содержащего библиотечные файлы, либо при запуске основной программы передать это имя интерпретатору peri при помощи ключа -i. \ '
  • Создадим библиотечный файл myiib.pl и поместим его в каталог /usr/temp/periiib. Файл myiib.pl содержит единственную подпрограмму Numof Args (), которая выводит число аргументов, переданных ей при вызове.

    # библиотечный файл /usr/temp/perllib/mylib.pl sub NumOfArgs {

    return $#_+!; }

    I;

    Создадим файл основной программы mymain.pi:

    #!/usr/bin/perl

    unshift (@INC, "/usr/temp/perllib");

    require "mylib.pl";

    print "Число аргументов=", NumOfArgs(1,2,3,4), "\n";

    В результате выполнения файла mymain.pi будет выведена строка

    Число аргументов=4

    Обратите внимание на выполнение всех шагов, необходимых для создания и подключения библиотеки.



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