Как вызвать PM файлы из индексного файла в Perl?

Question

Я хочу использовать файлы, которые находятся внутри папки cgi-bin в perl, я хочу вызывать их из index.cgi Когда я это делаю: используйте cgi-bin / file_name, это не работает, как я могу это сделать?

Answer 1

Когда вы просите Perl использовать модуль, он ищет каталоги в @INC. Если модуль, который вы хотите использовать, находится в каком-то другом каталоге, вы можете сделать это:

use lib 'some/other/directory';
use TheModule;

Если вы не хотите, чтобы каталог был добавлен в @INC, вы можете реализовать use прямо так:

BEGIN {
    require 'some/other/directory/TheModule.pm';
    TheModule->import('foo', 'bar', ...);
}

Подробнее о use, use lib и @INC.

Answer 2

Вы можете попробовать "сделать"

# read in config files: system first, then user
for $file ("/share/prog/defaults.rc", "$ENV{HOME}/.someprogrc")
{
   unless ($return = do $file) {
     warn "couldn't parse $file: $@" if $@;
     warn "couldn't do $file: $!"    unless defined $return;
     warn "couldn't run $file"       unless $return;
   }
}

Это из примера perldoc.