我应该如何组织许多Perl模块？

Question

考虑到我在12个目录中有100个Perl模块。 但是，查看主要的Perl脚本，它看起来像100 use p1 ; use p2 ; use p1 ; use p2 ; 等解决这个问题的最佳方法是什么？

Answer 1

我似乎不太可能直接在主程序中use所有100个模块。 如果你的程序使用模块A中的函数然后从模块B调用函数，但主程序本身不引用模块B中的任何函数，那么程序应该只use A 它不应该use B除非它直接从模块B调用任何东西。

另一方面，如果你的主程序确实直接与所有100个模块对话，那么它可能只是太大了。 确定程序中的不同功能分组，并将每个组分解为自己的模块。 这样做的主要原因是它将使代码更易于维护，更灵活，更可重用，但它也会产生令人愉快的副作用，即减少主程序直接与之对话的模块数量，从而减少减少任何一个地方所需的use声明数量。

（并且，是的，我确实意识到100可能是夸大其词，但是，如果您对代码use的模块数量感到不安，那么这通常表明相关代码正在尝试做在一个地方太多，应该分解成一组模块。）

Answer 2

将所有use语句放在一个文件中，比如Mods.pm：

package Mods;

use Mod1;
use Mod2;
...

并在主脚本中包含该文件：

use Mods;

Answer 3

我支持eugene的解决方案，但您可以按主题将文件中的use语句分组，例如：

package Math;

use ModMatrix;
use ModFourier;
...

当然，您应该将模块和mod集合命名为有意义的。

Answer 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 $@;  # 'use' means "require pkg; pkg->import()" 
    $_->import();                 # at compile time
}

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