Как мне организовать много модулей Perl?

Ответ 1

Мне кажется маловероятным, что вы use задействуете все 100 модулей непосредственно в своей основной программе. Если ваша программа использует функцию в модуле A, которая затем вызывает функцию из модуля B, но сама основная программа не ссылается ни на что в модуле B, тогда программа должна только use A. Он не должен use B, если он напрямую не называет ничего из модуля B.

Если, с другой стороны, ваша основная программа действительно разговаривает напрямую со всеми 100 модулями, то она, вероятно, просто слишком большая. Определите различные функциональные группы в программе и разбейте каждую из этих групп на свой собственный модуль. Основная причина для этого заключается в том, что это приведет к тому, что код будет более удобным, гибким и многоразовым, но он также будет иметь счастливый побочный эффект для сокращения количества модулей, к которым напрямую обращается основная программа, вниз по числу операторов use, требуемых в любом месте.

(И да, я понимаю, что 100, вероятно, было преувеличением, но если вам становится неудобно о том, что количество модулей use d по вашему коду, то это обычно указывает на то, что код в вопрос пытается сделать слишком много в одном месте и должен быть разбит на набор модулей.)

Ответ 2

Поместите все операторы use в один файл, скажем Mods.pm:

package Mods;

use Mod1;
use Mod2;
...

и включите файл в свой основной script:

use Mods;

Ответ 3

Я поддерживаю решение eugene, но вы можете группировать операторы use в файлах по темам, например:

package Math;

use ModMatrix;
use ModFourier;
...

И, конечно же, вы должны назвать модули и коллекции мод значимыми.

Ответ 4

Включение всех инструкций использования в отдельный файл, поскольку предложенный eugene, вероятно, лучший подход. вы можете свести к минимуму ввод текста в этом модуле с небольшим метапрограммированием:

package Mods;
require Exporter;
our @ISA = 'Exporter';

my @packages = qw/Mod1 Mod2 Mod3 .... /;  
     # or  map {"Mod$_"} 1 .. 100  if your modules are actually named that way

for (@packages) {
    eval "require $_" or die [email protected];  # 'use' means "require pkg; pkg->import()" 
    $_->import();                 # at compile time
}

our @EXPORT = grep {*{$Mods::{$_}}{CODE}} keys %Mods::; # grab imported subs
#or @EXPORT_OK