LINUX.ORG.RU

Re: Пути в perl

INC - обычный массив.
Если Вам недоступна его конфигурация, то не судьба...

Я обычно использую следующую структуру:

------------------------------------------------------
if(! defined($ENV{INC_CURRENT_PATH})) {
$ENV{INC_CURRENT_PATH} = '../../';
}
if(! defined($ENV{INC_UDBM_PATH})) {
$ENV{INC_UDBM_PATH} = 'udbm/';
}
my $PATH_TO_FILE = $ENV{INC_CURRENT_PATH}.$ENV{INC_UDBM_PATH};

require $PATH_TO_FILE . 'mod_1.pm';
require $PATH_TO_FILE . 'mod_2.pm';
------------------------------------------------------
Т.е. поиск модуля относительно текущего каталога,
т.е. того каталога, в КОТОРОМ лежит файл с вышеприведенным кодом.

Все просто! :)

Только недостаток, конечно, один:
mod_1 и mod_2 вызовутся только при исполнении,
т.к. require используется в runtime, а use во время компиляции.

Utandr@e-mail.ru

Utandr ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.