Perl：动态模块加载、对象继承和；“常用帮助文件”；

简而言之，我尝试为网络中的每个实例使用对象来建模网络拓扑。此外，我还有一个顶级管理类，负责管理这些对象并执行完整性检查。文件结构如下所示（我省略了大多数对象文件，因为它们的结构都非常相同）：

Manager.pm
下午六时
班级/
+-下午3时
+-Node.pm
+-Object.pm
+-下午六时

我在OOP工作了好几年，非常喜欢代码重用等。因此我在这些对象之间建立了继承，继承树（在本例中）如下所示：

{
   package User;
   B::load();
   # can use List::Util::max
   # can use max
}

Switch-+->Node-+->Object
机器-+

所有这些对象的结构如下所示：

{
   package User;
   B::load();
   # can use List::Util::max
   # can use max
}

封装开关；
使用父qw（节点）；
子构建FromXML{
...
}
次新{
...
}
#附加方法

现在有趣的部分是：

问题1 如何确保在不静态键入名称的情况下正确加载所有这些对象？ 潜在的问题是：如果我只是

要求每个glob（“./Classes/*”）使用“$\ux”我得到许多“子例程新重定义在”错误。我还使用了
use parent qw（-norequire Object）
、
Module:：Find
和其他一些不同组合的
@INC
修改，简而言之：它不起作用。目前我正在静态导入所有使用过的类，它们会自动导入父类。

因此，基本上我要问的是：（perl-）正确的方法是什么？

高级：能够创建一个更复杂的文件夹结构（因为会有很多对象）并且仍然具有继承+自动加载功能，这将非常有帮助

问题2-已解决
如何“共享我的导入”？我使用了几个库（我自己的，包含一些帮助函数，
LibXML
，
Scalar:：Util
，等等），我想在我的对象之间共享它们。（其背后的原因是，我可能需要为所有对象添加另一个公共库，并且很有可能会有超过100个对象-手动编辑所有对象并不有趣，使用正则表达式/脚本进行编辑理论上是可行的，但这似乎不是最干净的解决方案）

我尝试的是：


导入
Manager.pm中的所有内容
->在Manager包中工作-给我诸如“未定义的子例程&开关：：调用跟踪”之类的错误
创建一个
include.pl
文件，并
do
/
require
/
在每个对象中使用它-给我同样的错误
还有一些东西我很遗憾不记得了

include.pl
基本上如下所示：

我再次问：正确的方法是什么？我是否使用了正确的方法，只是执行失败，还是应该完全改变我的结构？

我当前的代码为什么不能很好地工作并不重要，提供一个正确、干净的方法来解决这些问题就足够了：）

编辑：完全忘记了perl版本-u2;-side注：我无法升级perl，因为我需要的库都是5.8版本：/

C:\>perl-version
这是为MSWin32-x86多线程构建的perl v5.8.8
（对于50个注册补丁，请参阅perl-V以了解更多详细信息）
版权所有1987-2006，拉里·沃尔
ActiveState提供的二进制构建820[274739]http://www.ActiveState.com
建成日期2007年1月23日15:57:46
这只是对问题2“共享导入”的部分回答

加载模块（通过
使用
）有两件事：

编译模块并在命名空间层次结构（共享）中安装内容。请参见
perldoc-f require
对每个加载的模块调用
import
sub。这会将一些sub或常量等加载到调用方的命名空间中。这是
Exporter
类在很大程度上对视图隐藏的过程。这一部分对于不使用全名的sub等非常重要，例如
max
而不是
List:：Util:：max
。请参见
perldoc-f使用

让我们查看以下三个模块：
A
、
B
和
User

{
   package A;
   use List::Util qw(max);
   # can use List::Util::max
   # can use max
}
{
   package User;
   # can use List::Util::max -> it is already loaded
   # cannot use max, this name is not defined in this namespace
}

Package
B
定义一个子
load
，它将预定义的模块和子模块列表加载到调用者命名空间中：

{
   package B;
   sub load {
     my $package = (caller())[0]; # caller is a built-in, fetches package name

     eval qq{package $package;} . <<'FINIS' ;
       use List::Util qw(max);
       # add further modules here to load
       # you can place arbitrarily complex code in this eval string
       # to execute it in all modules that call this sub.
       # (e.g. testing and registering)
       # However, this is orthogonal to OOP.
FINIS

     if ($@) {
       # Do error handling
     }
   }
}

但是，您必须确保
加载
子模块本身已加载<代码>如果有疑问，请使用B
。在编译模块的其余部分之前，最好在
BEGIN
阶段执行
B:：load（）
：

{
  package User;
  BEGIN {use B; B::load()}
  # ...
}

相当于

{
  package User;
  use B;
  use List::Util qw(max);
  # ...
}

蒂姆托瓦蒂。虽然我发现
eval
ing代码非常混乱和危险，但这是我在这种情况下所采用的方法（而不是
do
ing文件，后者类似但有不同的副作用）。相比之下，在包名称空间中手动处理typeglobs简直是天方夜谭，而复制粘贴模块名称列表就像回到了甚至没有C预处理器的时代


编辑：
…是一个CPAN模块，通过一个有趣的方法接口提供此功能。使用此模块，我们将以以下方式重新定义我们的
B
包：

{
  package B;
  use List::Util;   # you have to 'use' or 'require' this first, before using 'load'.
  use Import::Into; # has to be installed from CPAN first
  sub load {
    my $package = caller;
    List::Util->import::into($package, qw(max));
    # should work too: strict->import::into($package);
    # ...
  }
}

此模块从视图中隐藏所有脏工作（
eval
ing），并执行方法调用解析操作，以允许将pragma导入其他名称空间。
导入：：到解决方案的附录

我发现一个场景似乎需要在Import:：Into解决方案中使用eval（）。在这个场景中，mod User实际上是来自包B的用户之一。对于使用Import:：Into的人来说，这可能是一个常见的场景

具体内容：


我创建的模块使用_导出器和单独的子模块进行导入
不同的模块组，例如load_generic（）和
加载\u列表\u utils（）

load_list_utils（）中的用法是用于公共mod，如
对于我自己的一个模块，List\u util