Perl:动态模块加载,对象继承和"常见帮助文件"

Question

简而言之,我尝试使用网络中每个实例的对象为网络拓扑建模.另外,我有一个顶级经理类,负责管理这些对象并执行完整性检查.文件结构看起来像这样(我遗漏了大多数对象文件,因为它们的结构都非常相似):

Manager.pm
Constants.pm
Classes/
  +- Machine.pm
  +- Node.pm
  +- Object.pm
  +- Switch.pm

在OOP中花了几年时间,我是代码重用等的粉丝所以我在thos对象之间建立了继承,继承树(在这个例子中)看起来像这样:

Switch  -+-> Node -+-> Object
Machine -+

所有这些对象的结构都是这样的:

package Switch;
use parent qw(Node);

sub buildFromXML {
  ...
}
sub new {
  ...
}

# additonal methods

现在有趣的部分:

问题1

如何在不静态输入名称的情况下确保正确加载所有这些对象？根本问题是:如果我require "$_" foreach glob("./Classes/*");得到很多"Subroutine new redefined at"错误.我也打得四处use parent qw(-norequire Object),Module::Find以及其他一些@INC以各种组合的修改,使之短:它没有工作.目前我正在静态导入所有使用过的类,它们会自动导入它们的父类.
基本上我要问的是:(perl-)这样做的正确方法是什么？
高级:能够创建更复杂的文件夹结构(因为会有很多对象)并且仍然具有继承+"自动加载"将非常有帮助

问题2 - 已解决

我如何"分享我的进口"？我用几个图书馆(我自己的,包含了一些辅助功能,LibXML,Scalar::Util等),我想分享他们当中我的对象.(其背后的原因是,我可能需要为所有对象添加另一个公共库,并且很可能会有超过100个对象 - 没有乐趣手动编辑所有这些对象并且使用正则表达式/脚本执行此操作理论上可以工作但是这似乎不是最干净的解决方案)
我尝试了什么:

• 导入所有内容Manager.pm- >在Manager包中的Works - 给我一些错误,如"未定义的子程序和Switch :: trace调用"
• 在每个对象中创建一个include.pl文件和do/ require或use它 - 给我同样的错误.
• 还有一些东西,我不记得了

include.pl 基本上会是这样的:

use lib_perl;
use Scalar::Util qw(blessed);
use XML::LibXML;
use Data::Dumper;
use Error::TryCatch;
...

我再次问:做正确的方法是什么？我使用正确的方法,只是在执行失败或我应该完全改变我的结构？
为什么我当前的代码不能很好地工作,为那些问题提供正确,干净的方法到目前为止就足够了:)

编辑:完全忘记perl版本-_-旁注:我无法升级perl,因为我需要使用5.8的库:/

C:\> perl -version
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 50 registered patches, see perl -V for more detail)

Copyright 1987-2006, Larry Wall

Binary build 820 [274739] provided by ActiveState http://www.ActiveState.com
Built Jan 23 2007 15:57:46

Answer 1

这只是问题 2（共享导入）的部分答案。

\n

加载模块（通过use）会做两件事：

\n

\n
1. 编译模块并将内容安装到命名空间层次结构（共享）中。看perldoc -f require。
\n
2. 在每个加载的模块上调用importsub。这会将一些子项或常量等加载到调用者的名称空间中。这是一个类在很大程度上隐藏在视图之外的过程Exporter。这部分对于使用没有全名的 subs 等非常重要，例如max代替List::Util::max。看perldoc -f use。
\n

\n

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

\n

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

\n

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

\n

{\n   package B;\n   sub load {\n     my $package = (caller())[0]; # caller is a built-in, fetches package name\n\n     eval qq{package $package;} . <<\'FINIS\' ;\n       use List::Util qw(max);\n       # add further modules here to load\n       # you can place arbitrarily complex code in this eval string\n       # to execute it in all modules that call this sub.\n       # (e.g. testing and registering)\n       # However, this is orthogonal to OOP.\nFINIS\n\n     if ($@) {\n       # Do error handling\n     }\n   }\n}\n

\n

在 \'d 字符串内eval，我们暂时切换到调用者包，然后加载指定的模块。这意味着User包代码现在如下所示：

\n

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

\n

但是，您必须确保子程序load本身已经加载。use B如有疑问。最好在编译模块的其余部分之前B::load()在该阶段执行：BEGIN

\n

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

\n

相当于

\n

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

\n

蒂姆托·迪。虽然我发现evaling 代码非常混乱和危险，但这是我在这种情况下追求的方式（而不是doing 文件，它相似但具有不同的副作用）。相比之下，手动弄乱包命名空间中的 typeglob 简直就是地狱，而复制粘贴模块名称列表就像回到了甚至没有 C 预处理器的时代。

\n\n

编辑：Import::Into

\n

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

\n

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

\n

该模块隐藏了视图中的所有脏工作（evaling），并执行方法调用解析操作以允许将编译指示导入其他名称空间。

\n