Как вызвать функцию из определенного файла в perl?

Question

Я хочу вызвать функцию в определенном файле, указав имя файла в качестве входного файла. Основной файл является аргументом вызова функции. Основной файл изменяется каждый раз, func1 остается постоянным.

mainfile
{
    func1()
    {
      .....
      .....
    }

    basefile::func1(mainfile.pm);
}

basefile.pm
{
    func1()
    {
       mainfile::func1();   
    }
}

Answer 1

Похоже, вы ищете директиву package. Вызов package в

# basefile.pm
package basefile;
sub func1 { ... }

добавит подпрограмму func1 в пространство имен basefile и сделает ее доступной в любом другом пакете под символом basefile::func1.

Для вызова от basefile::func1 до mainfile::func1 должна быть подпрограмма с именем func1, определенная в пространстве имен mainfile. Вы можете использовать оператор package в своем скрипте mainfile

# mainfile.pl
package mainfile;
use basefile;
sub func1 { ... }

или объявить подпрограмму в определенном пространстве имен, используя полное имя подпрограммы

# mainfile.pl
use basefile;
sub mainfile::func1 { ... }